Skip to content

Instantly share code, notes, and snippets.

@branan

branan/gist:6196161

Created August 9, 2013 18:54
Show Gist options
  • Save branan/6196161 to your computer and use it in GitHub Desktop.
Save branan/6196161 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
icfp2013.language> ((eval(transform-prog '(lambda (x) (shl1 (shr1 x))))) 1)
( )shr1 0x0000000000000001=0x0000000000000000
( )shl1 0x0000000000000000=0x0000000000000000
()(clojure.core/binding [icfp2013.language/*indent-level* (clojure.core/inc icfp2013.language/*indent-level*)] (clojure.core/let [the-arg__2295__auto__ (clojure.core/binding [icfp2013.language/*indent-level* (clojure.core/inc icfp2013.language/*indent-level*)] (clojure.core/let [the-arg__2290__auto__ x result__2291__auto__ (clojure.core/bit-and 9223372036854775807 (clojure.core/bit-shift-right the-arg__2290__auto__ 1))] (icfp2013.language/debug-print (clojure.core/format shr1 0x%016x=0x%016x the-arg__2290__auto__ result__2291__auto__)) result__2291__auto__)) result__2296__auto__ (clojure.core/bit-shift-left the-arg__2295__auto__ 1)] (icfp2013.language/debug-print (clojure.core/format shl1 0x%016x=0x%016x the-arg__2295__auto__ result__2296__auto__)) result__2296__auto__))
()lambda [1]=0x0000000000000000
0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment