Fractran: Difference between revisions
Content deleted Content added
Simple9371 (talk | contribs) m →{{header|Scheme}}: Added SRFI 13 |
Simple9371 (talk | contribs) m →{{header|Scheme}}: just reduce space |
||
Line 3,718: | Line 3,718: | ||
(loop (+ 1 i) (+ 1 acc) binary-str)) |
(loop (+ 1 i) (+ 1 acc) binary-str)) |
||
(else |
(else |
||
(loop (+ 1 i) acc binary-str))))))) |
(loop (+ 1 i) acc binary-str))))))) |
||
(define (extract-prime n) ; just gets the number of zeroes in binary |
(define (extract-prime n) ; just gets the number of zeroes in binary |
||
(let ((binary-str (number->string n 2))) |
(let ((binary-str (number->string n 2))) |