Skip to content

Instantly share code, notes, and snippets.

@niklio

niklio/cantor.lio

Created April 19, 2016 02:51
Show Gist options
  • Save niklio/5612211fb890555a730f27beaacb1079 to your computer and use it in GitHub Desktop.
Save niklio/5612211fb890555a730f27beaacb1079 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
cantor.lio
(fn '(zeros n) '(if n '(cons 0 (zeros (- n 1))) '('())))
(fn '(cantor-2 depth)
'(if depth
'((\ '(x) '(join x (zeros (len x)) x))(cantor-2 (- depth 1)))
'('(1))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment