[ create a new paste ] login | about

Link: http://codepad.org/XqsCRkvU    [ raw code | output | fork ]

Scheme, pasted on Apr 10:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(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)


Output:
1:
2:
3:aho
4:
5:wan
6:aho
7:
8:
9:aho
10:wan
11:
12:aho
13:aho
14:
15:ahowan
16:
17:
18:aho
19:
20:wan
21:aho
22:
23:aho
24:aho
25:wan
26:
27:aho
28:
29:
30:ahowan
31:aho
32:aho
33:aho
34:aho
35:ahowan
36:aho
37:aho
38:aho
39:aho
40:wan



Create a new paste based on this one


Comments: