Skip to content

Instantly share code, notes, and snippets.

@blippy

blippy/chain.scm

Created May 6, 2019 08:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save blippy/da87666a996c161966c13dcaaef33458 to your computer and use it in GitHub Desktop.
Save blippy/da87666a996c161966c13dcaaef33458 to your computer and use it in GitHub Desktop.
Download ZIP
Chain procures together
Raw
chain.scm
#lang racket
(define (chain arg0 . lambdas)
(let loop ((arg arg0) (lambdas lambdas))
(if (empty? lambdas)
arg
(loop ((car lambdas) arg) (cdr lambdas)))))
; example usage
(define (add1 n) (+ 1 n))
(define (adder by) (lambda (n) (+ by n)))
(chain 10 add1 add1 add1 (adder 2)) ; 15
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment