katsu #1296(2007/07/21 14:34 GMT) [ Prolog ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11
text([],[]). text([C|Cs],R):-num(C),number([C|Cs],Cr,N),number_codes(N1,N),N2 is floor(N1*1.05),number_codes(N2,N3),append(N3,Rs,R),text(Cr,Rs). text([C|Cs],[C|Rs]):-text(Cs,Rs). num(C):-between(0'0,0'9,C). number([],[],[]). number([C|Cs],Cr,[C|Ns]):-num(C),number(Cs,Cr,Ns). number(Cr,Cr,[]). :-text("12345円 だいこん123円",R),string_to_list(Rt,R),writeln(Rt).
Rating0/0=0.00-0+
[ reply ]
katsu
#1296()
[
Prolog
]
Rating0/0=0.00
text([],[]). text([C|Cs],R):-num(C),number([C|Cs],Cr,N),number_codes(N1,N),N2 is floor(N1*1.05),number_codes(N2,N3),append(N3,Rs,R),text(Cr,Rs). text([C|Cs],[C|Rs]):-text(Cs,Rs). num(C):-between(0'0,0'9,C). number([],[],[]). number([C|Cs],Cr,[C|Ns]):-num(C),number(Cs,Cr,Ns). number(Cr,Cr,[]). :-text("12345円 だいこん123円",R),string_to_list(Rt,R),writeln(Rt).Rating0/0=0.00-0+
[ reply ]