로마숫자바꾸기/DamienRice - Revision history

imported>DamienRice at 10:13, 22 October 2008

2008-10-22T10:13:02Z

← Older revision		Revision as of 10:13, 22 October 2008
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.
	~~%console~~
			콘솔
	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).

imported>DamienRice at 10:12, 22 October 2008

2008-10-22T10:12:41Z

New page

%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.
%console
A = {"I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX", "X"}.
c(rome).
rome:rome(38, "", A).
----
[[로마숫자바꾸기]], LittleAOI