Comment detail

逆転したビット列 (Nested Flatten)
あれ?string->numberが強調されません。R5RSだと思いますが。
1
2
3
(use srfi-13)
(define (rev n i) (string->number (string-reverse (string-pad (number->string i 2) n #\0)) 2))
(dotimes (i 16) (print (rev 4 i)))

Index

Feed

Other

Link

Pathtraq

loading...