Erlangを覚えようと思って、とりあえずなれるためにNabeAtzzを書いてみました。
日本語の使い方は判らないので、ローマ字でいいや。
-export([ahow/1]). -export([initlist/1]). -export([initlist/3]). -export([nabeatzz/1]). % 表現 ahow(X) when (X rem 3 =:= 0 ) ; X div 10 =:= 3 -> lists:nth( (X div 10)+1, ["","jyu","nijyu","sanjyu","yonjyu"]) ++ lists:nth((X rem 10)+1,["", "ich","ni","san","yon","go","roku","nana","hachi","kyu"]); ahow(X) -> X. % 初期の配列を作る initlist(C) -> initlist(C, 1, []). initlist(C, X, T) when C < X -> T; initlist(C, X, T) -> [X|initlist(C, X+1,T)]. % NabeAtzz nabeatzz(X) -> lists:foreach(fun(N) -> io:format("~p~n", [N]) end, lists:map(fun(N) -> ahow(N) end, new:initlist(X))).