いいぞ、いいぞ、速いぞGauche♪・・・JVMや.NETのREPL(対話型環境)は、たしかに立ち上がりがどっこらセックス・・・(しつこく小飼弾言を引用)

Lispを取り上げるなら、LispなりのFizzBuzzを取り上げておいたほうが良いだろう。IronSchemeで行こうと思ったが、実行環境のことなどわからなすぎなので、Gaucheに寄り道。

• WIndows環境のGaucheは実験中、らしいですが、こういうお遊びではさくっと動いてくれてます。
• upzip後の起動とライブラリ(sfri)のインポートまで :

PS C:\Gauche\bin> .\gosh.exe
gosh> (use srfi-1)
#

◇GaucheでFizzBuzz

• 「Lisp脳」の謎に迫るをほぼそのまま引用させていただく ※FizzBuzz自体が初めての人はリンク先の「Lisp脳」から学んでほしい。
• condの中の条件は、[・・・]で囲むのが好みなので こんなかんじ:

gosh> (print
      (map
         (lambda (x) (
            cond
            [(= (modulo x 15) 0) "FizzBuzz"]
            [(= (modulo x 5) 0) "Buzz"]
            [(= (modulo x 3) 0) "Fizz"]
                          [else x]
         ))
         (iota 100 1)
      )
)
(1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuz
z 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 F
izzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 8
8 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz)
#

◇ScalaでFizzBuzz

• 自分がFizzBuzzするなら、Gauche版に近い書き方をするな。mapを使う高階操作というわけで :

val FizzBuzz =
	(1 to 100) map { n => n match
		{
	      case _ if (n%15 == 0) => "FizzBuzz "
	      case _ if (n%3 == 0) =>"Fizz "
	      case _ if (n%5 == 0) => "Buzz "
	      case _ =>  (n.toString + " ")
		}
	}

そして、printする時に形を整える

scala> println (FizzBuzz.mkString)
1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz
 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 Fi
zzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88
 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz

ん～、LispいらずなScala。。ScalaでFizzBuzzはいろいろな人がトライしている。再帰を使ったり、はたまたextractorを使ったり :

• http://d.hatena.ne.jp/ryugate/20080112/p1
• http://pascalmk.clipp.in/entry/42264

同じLispでも、無駄にカッコつけない長門有希Clojureは一味違う。・・・と書きかけたのだけれど、みずぴー氏が、ClojureのcondをSchemeでも使えるようにしてくれている!・・・Lispビギナーなので、どの程度括弧つけるべきなのか、実のとこ、見当がついてないんだけれども。

◇IronScheme

ちょっと手抜きで実行した画面をそのままキャプチャ

• (count ‘(1 2 3))がエラー　・・　Clojureとは違い、長さを測るのはlengthなのね。
• shiroさんの『プログラミングGauche』(O’ REILLY))の46頁にあるfoldは実行できない　・・　S式の基本に戻って(+ x y)を積み重ねる。

◇Scala

Gaucheのfoldに相当するのは、foldLeft とか。例えば、こんな感じ :

scala> (List(2,3,4) foldLeft 1) {(x,y) => x+y}
res3: Int = 10

scala> (List(2,3,4).foldLeft (1)) {(x,y) => x+y}
res4: Int = 10

scala>(List(2,3,4) foldLeft 1) {_+_}
res5: Int = 10

左から順に加えていくfoldLeft、ふだんあまり使ってないが、自分が書くならば3番目の書き方かな。
ちなみに、foldLeft相当の記号として:/がある。はじめて見た時には違和感があったけど、左から順にぱたぱた倒れていく、とかイメージすれば、まぁ覚えられるかな。

(1 /: List(2,3,4))(_+_)
(1 /: (2 :: 3 :: 4 :: Nil))(_+_)

◇再びIronScheme

・・・でも、Gaucheのfoldの方がシンプルだなぁ。
IronSchemeでも、Scheme実装であるGaucheのfoldのコードが動くので、以下のように自前でfoldを定義すれば、IronSchemeでもfoldできる。

・・・しかし、IronScheme.Console.exeは使い勝手が微妙。すでに、IronSchemeはIronSchemeで、独自のエコシステムを作りつつあるのだろうが、それを覚える気になるか、自分??