Advertisement
Guest User

Untitled

a guest
Feb 28th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.19 KB | None | 0 0
  1. (define (zahl-umdrehen x)
  2.   (define (zahl-umdrehen-iter x y)
  3.     (if (= x 0) y
  4.         (zahl-umdrehen-iter (quotient x 10) (+ (* y 10) (remainder x 10)))))
  5.   (zahl-umdrehen-iter x 0))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement