ネタばらし（primes.ml）

m.ukaiさんやshinhさんがprime numbersのネタばらしをしているので，こちらも公開しておきます． お二人のものと違って，魔法を使ったひどいコードです．

let rec f l n i=i>0&f(n::l)(n+1)(i-Obj.magic(List.for_all(fun p->n/p*p<n)l&Printf.printf"%d
"n=()));;f[]2(read_int())

見るからにあんまりだなぁ．何でもかんでも魔法に頼るのはいかがなものか．