Skip to content

Instantly share code, notes, and snippets.

@samth
Created Jul 1, 2011
Embed
What would you like to do?
Jane Street problem
Welcome to Racket v5.1.1.6.
> (time (for/first ([i (in-naturals 1)]
#:when (regexp-match #rx"^(1|0)*$"
(number->string (* i 225))))
(* i 225)))
cpu time: 53687 real time: 53692 gc time: 1072
11111111100
>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment