halcat0x15a’s gists

halcat0x15a / project.clj

Last active December 25, 2015 03:59 — forked from noqisofon/update-tweet.clj

	(defproject update-tweets "0.1.0-SNAPSHOT"
	:dependencies [[org.clojure/clojure "1.5.1"]
	[org.twitter4j/twitter4j-core "3.0.4"]]
	:jvm-opts ["-Dtwitter4j.oauth.consumerKey="
	"-Dtwitter4j.oauth.consumerSecret="])

halcat0x15a / rpscala97.md

Created February 13, 2013 11:53 — forked from lyricallogical/rpscala97.md

!SLIDE PartialFunction ってなあに？

部分関数のことだよ

そもそも関数ってなあに？

halcat0x15a / functor.scala

Created December 16, 2012 23:41 — forked from anonymous/functor.scala

	import scalaz._, Scalaz._

	sealed trait MyOption[+A]

	case class MySome[A](value: A) extends MyOption[A]

	case object MyNone extends MyOption[Nothing]

	object MyOption {
	implicit object MyOptionFunctor extends Functor[MyOption] {

halcat0x15a / ScalazFizzBuzz.scala

Created August 8, 2012 06:09 — forked from yuroyoro/ScalazFizzBuzz.scala

ScalazでFizzBuzz

	import scalaz._,Scalaz._

	val fizzbuzz = (x:Int) => (Enum[Int].from(0) map {n => ((n%3 === 0).option("Fizz") \|+\| (n%5 === 0).option("Buzz")) <+> n.shows.pure[Option]} take x+1 flatten).foreach(println)

halcat0x15a / aaa.scala

Created July 23, 2012 03:45 — forked from gkojax/aaa.scala

case文とtry catchがネストしてるの

	import scala.util.control.Exception._

	def string2Int(sizeString: Option[String]): Option[Int] =
	sizeString flatMap (a => allCatch opt a.toInt)

	string2Int(Option("123")) // Some(123)
	string2Int(Option("rrr")) // None
	string2Int(None) // None

halcat0x15a / App.scala

Created June 1, 2012 00:05 — forked from nisshiee/App.scala

ReaderをIterateeで扱う

	import java.io.{ Reader, FileReader }

	import scalaz._, Scalaz._
	import effect._, IO._
	import iteratee._, Iteratee._

	object App extends SafeApp{
	val separator = sys.props("line.separator").head

	override def run(args: ImmutableArray[String]): IO[Unit] = {

halcat0x15a / InverseFizzbuzz.scala

Created May 15, 2012 10:10 — forked from xuwei-k/InverseFizzbuzz.scala

InverseFizzbuzz : http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html

	// Inversefizzbuzz
	// http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html
	//
	// fork from https://gist.github.com/2699068

	import scalaz._
	import Scalaz._

	object InverseFizzbuzz extends App {

halcat0x15a / gist:2383148

Created April 14, 2012 09:29 — forked from gakuzzzz/gist:2383028

計算中と計算終了を表すコンテナ

	trait Container[+R, +C] {

	def map[A](f: C => A): Container[R, A]

	def flatMap[RR >: R, A](f: C => Container[RR, A]): Container[RR, A]

	def toResult[RR >: R](implicit ev: C <:< RR): Result[RR]

	}
	case class Calculating[+R, +C](element: C) extends Container[R, C] {

halcat0x15a / KanjiNumberParser.scala

Created December 18, 2011 08:12 — forked from tototoshi/KanjiNumberParser.scala

漢数字パーサだよ

	import scalaz._
	import Scalaz._
	import scala.util.parsing.combinator._

	object KanjiNumberParser extends RegexParsers {

	def one = "一" ^^^ digits(1)
	def two = "二" ^^^ digits(2)
	def three = "三" ^^^ digits(3)
	def four = "四" ^^^ digits(4)

halcat0x15a / a.scala

Created September 4, 2011 19:34

ScalazでIteratee

	sealed trait StreamG[+E]

	case object Empty extends StreamG[Nothing]

	case class El[E](el: E) extends StreamG[E]

	case object EOF extends StreamG[Nothing]

	sealed trait IterV[+E, +A]