`(Hello ,world)

ツッコミ、添削大歓迎です。いろいろ教えてください。

2009-10-01

Arcでゴルフ

Route 477(2009-09-29)

> Arc

調査ありがとうございます。今度入れときます。

2009-09-29

Arcがゴルフ場に入る!ということで先に遊んでおく。自分の腕が不足してるのか案外短くならず、軒並みScheme(Gauche)に負けてるのが残念。つかSchemeでどうやってるんだろう…。

echo:23

(whilet c(readc)(pr c))

google:32

(pr'g(string(n-of(read)'o))'gle)

fizzbuzz:79

(= % multiple)(for i 1 100(prn(if(% i 15)'FizzBuzz(% i 3)'Fizz(% i 5)'Buzz i)))

Fibonacci Numbers:59

((afn(a b i)(when(< i 46)(self b(+(prn a)b)(+ i 1))))1 1 0)

ポートから1行読み込むreadlineの仕様が酷くて行頭に#\newlineがきても空行にしてくれないので、行単位になんかするもの、reverse linesをやろうとしてガッカリした。

Arcはウェブサーバに必要な機能に特化してそうなんで、いいとこだけとってゴルフという観点でLispを再設計したら面白いかもしれない。

mokehehemokehehe2009/10/06 16:17Anarchy-golfでArc始まった。
pr!g(repeat(read)pr!o)pr!gle

mokehehemokehehe2009/10/07 10:10((rfn f(a b)(if(< b 3e9)(f b(+(prn a)b))))1 1)

トラックバック - http://cadr.g.hatena.ne.jp/mokehehe/20091001