Skip to content

Instantly share code, notes, and snippets.

@egisatoshi

egisatoshi/prime desert

Created December 1, 2013 12:21
Show Gist options
  • Save egisatoshi/7732963 to your computer and use it in GitHub Desktop.
Save egisatoshi/7732963 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
prime desert
> (take 5 (match-all primes (list integer) [<join _ <cons $m <cons (& ?(gte-i? $ (+ 50 m)) $n) _>>> [m n]]))
{[19609 19661] [25471 25523] [31397 31469] [31907 31957] [34061 34123]}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment