Skip to content

Instantly share code, notes, and snippets.

@samth
Created July 1, 2011 12:59
Show Gist options
  • Save samth/1058499 to your computer and use it in GitHub Desktop.
Save samth/1058499 to your computer and use it in GitHub Desktop.
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