Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl ; two-base palindromes (define (digits n . args) (let ((b (if (null? args) 10 (car args)))) (let loop ((n n) (d '())) (if (zero? n) d (loop (quotient n b) (cons (modulo n b) d)))))) (define (palin? n b) (let ((ds (digits n b))) (equal? ds (reverse ds)))) (do ((n 1 (+ n 1))) (#f) (when (and (palin? n 10) (palin? n 8)) (display (digits n)) (display " ") (display (digits n 8)) (display " ") (newline))) Private [?] Run code Submit