キミならどう書く 2.0 - ROUND 1 - ― Lightweight Language Ring
http://ll.jus.or.jp/2006/blog/doukaku1
お題は「100までの整数から素数を列挙せよ」です.
MLならループ使ってなんぼでしょう。
愚直に。
# exception NotPrime;; exception NotPrime # begin for i = 2 to 100 do try for j = 2 to i / 2 do if i mod j = 0 then raise NotPrime done; Printf.printf "%d " i; with NotPrime -> () done; print_newline(); end;; 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 - : unit = ()