codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
(define (print function argument) (display (function argument 1)) (display (function argument 2)) (display (function argument 3)) (display (function argument 4)) (display (function argument 5)) (display (function argument 6)) (display (function argument 7)) (display (function argument 8)) (display (function argument 9)) (display (function argument 10))) (define (hundred start) (begin (print + (+ 0 start)) (print + (+ 10 start)) (print + (+ 20 start)) (print + (+ 30 start)) (print + (+ 40 start)) (print + (+ 50 start)) (print + (+ 60 start)) (print + (+ 70 start)) (print + (+ 80 start)) (print + (+ 90 start)))) (begin (hundred 0) (hundred 100) (hundred 200) (hundred 300) (hundred 400) (hundred 500) (hundred 600) (hundred 700) (hundred 800) (hundred 900))
Private
[
?
]
Run code
Submit