Skip to content

Instantly share code, notes, and snippets.

@g000001

g000001/gist:8545120

Created January 21, 2014 18:13
Show Gist options
  • Save g000001/8545120 to your computer and use it in GitHub Desktop.
Save g000001/8545120 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.scm
(map list
'#0=(#10=((1) . #1=(a))
#11=((2) . #2=(b))
#12=((3) . #3=(c))
#13=((4) . #4=(d))
(#1# #10#)
(#2# #11#)
(#3# #12#)
(#4# #13#)
. #0#)
(iota 50))
;=> ((#0=((1) . #1=(a)) 0) (#2=((2) . #3=(b)) 1) (#4=((3) . #5=(c)) 2) (#6=((4) . #7=(d)) 3) (#8=(#1# #0#) 4) (#9=(#3# #2#) 5) (#10=(#5# #4#) 6) (#11=(#7# #6#) 7) (#0# 8) (#2# 9) (#4# 10) (#6# 11) (#8# 12) (#9# 13) (#10# 14) (#11# 15) (#0# 16) (#2# 17) (#4# 18) (#6# 19) (#8# 20) (#9# 21) (#10# 22) (#11# 23) (#0# 24) (#2# 25) (#4# 26) (#6# 27) (#8# 28) (#9# 29) (#10# 30) (#11# 31) (#0# 32) (#2# 33) (#4# 34) (#6# 35) (#8# 36) (#9# 37) (#10# 38) (#11# 39) (#0# 40) (#2# 41) (#4# 42) (#6# 43) (#8# 44) (#9# 45) (#10# 46) (#11# 47) (#0# 48) (#2# 49))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment