Comments

Re:キミならどう書く 2.0 - ROUND 1 - by Takumi Iino — last modified 2006-06-23 02:04

gaucheの遅延ストリームでオーソドックスふるいをつかって。
長い。
(use util.stream)
(define ones (stream-cons 1 ones))
(define (add-streams s1 s2) (stream-map + s1 s2))
(define integer (stream-cons 1 (add-streams ones integer)))
(define prime-stream
(let loop ((primes (stream-cdr integer)))
(stream-cons (stream-car primes)
(loop
(stream-filter
(lambda (x)
(not (= (remainder x (stream-car primes)) 0)))
primes)))))
(let loop ((stream prime-stream))
(if (> 100 (stream-car stream))
(cons (stream-car stream) (loop (stream-cdr stream)))
'()))

[OCaml] キミならどう書く 2.0 - ROUND 1 - (L.L.Ring) by jijixi's diary — last modified 2006-06-22 19:59

スレッドを使ったネタバージョン (言語は OCaml)

[Coding] 100までの素数＠XQuery by A Diary Which Heads for Convergence (Naist branch). — last modified 2006-06-22 18:01

declare function prime($i as xs:integer) as xs:boolean
{
every $div in (2 to $i - 1) satisfies $i mod $div != 0
};
for $i in (2 to 100)
return if(prime($i)) then $i else ()

XQueryだとこんな感じでしょうか。しょぼーん(´・ω・｀)

[Squeak] 100までの整数から素数を列挙せよ…を Squeak の eToys で by sumim’s smalltalking-tos — last modified 2006-06-22 15:59

eToys でも id:squeaker さんの Kedama（毛玉）を使って書いてみました。Kedama は、端的には、複数のタートルを使って描くタートルグラフィックス・システムです。 Kedama: A massively-parallel tile-scriptable particle system Yamamoto さんのチュートリアルがわかりや

100までの整数から素数を列挙せよ(SQL) by inquisitor — last modified 2006-06-22 15:13

SELECT n as prime FROM( SELECT n,COUNT...

PHPで素数判定 by ハズレ日記 — last modified 2006-06-22 14:06

LL Ring の前哨戦として「キミならどう書く 2.0」の開催です！ 今回は...

[neta] FORTRANで書いて、100台のスパコンにそれぞれ自然数を割り振って、素数かどうかを判定させた結果を返してもらうというのはどうか by otsune's SnakeOil — last modified 2006-06-22 14:02

100までの素数を数えるサンプル by HotPHPPER News — last modified 2006-06-22 12:41

PHPkoyhogeLightweight Language Ring100PHPkoyhogePHP5