Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl (define (nabeatsu max) (define (include3 n) (cond ((= n 0) #f) ((= (modulo n 10) 3) #t) (else (include3 (quotient n 10))))) (define (loop n) (if (> n max) #t (begin (display (format "~s:" n)) (if (or (= (modulo n 3) 0) (include3 n)) (display 'aho)) (if (= (modulo n 5) 0) (display 'wan)) (newline) (loop (+ n 1))))) (loop 1)) (nabeatsu 40) Private [?] Run code