codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
(defn is-odd [x] (= (mod (int x) 2) 1)) (defn meets-rules "Did this number meet the rules for our test" [x] (and (and (and (is-odd (.substring (str x) 0 1)) (is-odd (.substring (str x) 1 2)) (is-odd (.substring (str x) 2 3))))))
Private
[
?
]
Run code