[ create a new paste ] login | about

Link: http://codepad.org/7utMhoSv    [ raw code | output | fork ]

Haskell, pasted on Feb 20:
1
main=print$iterate(\n->minimum[x|x<-[read(show=<<filter(/=k)[i..j])::Int|i<-[1..n],j<-[i+2..n],k<-[i+1..j-1]],x>n])13


Output:
1
2
[13,24,35,46,
Timeout


Create a new paste based on this one


Comments: