More actions
imported>DamienRice No edit summary |
imported>DamienRice No edit summary |
||
| Line 1: | Line 1: | ||
모듈 소스 | |||
%rome.erl | %rome.erl | ||
-module(rome). | -module(rome). | ||
| Line 12: | Line 13: | ||
rome(0, L++" "++element(Number rem 11, A), A) | rome(0, L++" "++element(Number rem 11, A), A) | ||
end. | end. | ||
콘솔 | |||
A = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X"}. | A = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X"}. | ||
c(rome). | c(rome). | ||
Latest revision as of 10:13, 22 October 2008
모듈 소스
%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