buffalo

Erlang 30分プログラム

30分プログラム、その799。anarchy golf - Buffaloにインスパイアされました。
"Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo"という文法的に正しい英文を出力するプログラムです。

使い方

16> buffalo:main().
"Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo"

ソースコード

-module(buffalo).
-compile([export_all]).

capitalize([])->
    [];
capitalize([C|Cs])->
    [string:to_upper(C)|Cs].
id(X) -> X.

main()->
    C = fun capitalize/1,
    I = fun id/1,
    string:join(lists:map(fun (F) -> F("buffalo") end ,
			  [C,I,C,I,I,I,C,I]),
		" ").

参考