codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
ps = 2 : _Y ((3:) . diff [5,7..] . unionAll . map (\p-> [p*p, p*p+2*p..])) _Y g = g (_Y g) unionAll ((x:xs):t) = x : (joyn xs . unionAll . pairs) t where pairs (a:b:t) = joyn a b : pairs t ordzip a b = g a b where { g a@(x:r) b@(y:q) | x<y = (x,0):g r b | y<x = (0,y):g a q | otherwise = (x,y):g r q } diff xs ys = [x | (x,y)<- ordzip xs ys, x/=0 && y==0] joyn xs ys = [z | (x,y)<- ordzip xs ys, x/=0 || y/=0, let z=max x y] main=print$take 100 ps
Private
[
?
]
Run code
Submit