RosettaCodeData/Task/Roman-numerals-Encode/Picat/roman-numerals-encode-2.picat

5 lines
122 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
go2 =>
All = [Len=I=roman_encode(I) : I in 1..4000,E=roman_encode(I), Len=E.len].sort_down,
println(All[1..2]),
nl.