Skip to content

Instantly share code, notes, and snippets.

@clemtibs

clemtibs/recursive-curry.rkt

Created March 14, 2016 01:05
Show Gist options
  • Save clemtibs/1deddb0915bd012d4c0a to your computer and use it in GitHub Desktop.
Save clemtibs/1deddb0915bd012d4c0a to your computer and use it in GitHub Desktop.
Download ZIP
Infinite currying using tail-recursion in Racket
Raw
recursive-curry.rkt
#lang racket
(define (rec-curry-add [inc 0] [sum 0])
(if (equal? inc 0)
sum
(begin
(set! sum (+ sum inc))
(lambda ([inc 0])
(rec-curry-add inc sum)))))
(rec-curry-add)
((rec-curry-add 1))
(((rec-curry-add 1)2))
@clemtibs
Copy link
Author 

0
1
3

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment