SHARE
TWEET

Untitled

a guest May 19th, 2017 40 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.   (let (
  2.     (pos 0)
  3.     (tsl '())
  4.     )
  5.     (set! tsl (reverse lst))
  6.     (define (help tsl)
  7.       (if (null? (cdr tsl))
  8.       (begin
  9.         (set-car! (drop lst pos) (car tsl))
  10.         (set! pos 0)
  11.         lst
  12.         )
  13.       (begin
  14.         (set-car! (drop lst pos) (car tsl))
  15.         (set! pos (+ 1 pos))
  16.         (help (cdr tsl))
  17.         )
  18.       )
  19.       )
  20.     (help tsl)
  21.     )
  22.   )
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top