erlangでNabeAtzz

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))).

Leave a Comment


NOTE - You can use these HTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>