로마숫자바꾸기/Damien Rice

Difference between r1.1 and the current

@@ -1,3 +1,4 @@

모듈 소스

{{{
%rome.erl
-module(rome).

@@ -13,8 +14,9 @@

rome(0, L++" "++element(Number rem 11, A), A)
end.
}}}

콘솔

{{{

~~%console~~

A = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X"}.
c(rome).
rome:rome(38, "", A).

모듈 소스

%rome.erl
-module(rome).
-export([rome/3]).

rome(99, L, A) -> "exit";
rome(0, L, A) -> L;
rome(Number, L, A) ->
    case Number > 10 of
	true ->
	    rome(Number-10, "X "++L, A);
	false ->
	    rome(0, L++" "++element(Number rem 11, A), A)
    end.

콘솔

A = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X"}.
c(rome).
rome:rome(38, "", A).

로마숫자바꾸기, LittleAOI