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