読者です 読者をやめる 読者になる 読者になる

キミならどう書く 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 = ()