funcoes.scm

(define compose (lambda (f g) (lambda (x) (f (g x)))))

(define repeat (lambda (f) (compose f f)))

(define combine (lambda (f)
    (lambda (x y)
      (if (empty? x) (quote ())
          (f (list (car x) (car y))
             ((combine f) (cdr x) (cdr y)))))))

(define zip (combine cons))

(zip (list 1) (list 5))

(zip (list 1 2 3 4) (list 5 6 7 8))

(define riff-shuffle (lambda (deck) (begin
    (define take (lambda (n seq) (if (<= n 0) (quote ()) (cons (car seq) (take (- n 1) (cdr seq))))))
    (define drop (lambda (n seq) (if (<= n 0) seq (drop (- n 1) (cdr seq)))))
    (define mid (lambda (seq) (/ (length seq) 2)))
    ((combine append) (take (mid deck) deck) (drop (mid deck) deck)))))

(println (riff-shuffle (list 1 2 3 4 5 6 7 8)))

(println ((repeat riff-shuffle) (list 1 2 3 4 5 6 7 8)))

(define json (new-object "java.util.HashMap" '()))
(invoke json "put" '("oi" "teste"))
(invoke json "put" '("nome" "thiago"))

(println json)