Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define xpBase 100)
- (define levelMod
- (lambda (x)
- (if (< x 1)
- x
- (+ x (levelMod (- x 1))))))
- (define levelXP
- (lambda (x)
- (+ (* (levelMod x) 10) xpBase)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement