Comment detail

倍数になる13進数 (Nested Flatten)

	
1
2
3
4
5
(define (_ x) 
  (if (zero? (modulo (string->number (number->string x) 13) x))
    (print x)
    (_ (+ x 1))))
(_ 10)

Index

Feed

Other

Link

Pathtraq

loading...