Skip to content

Instantly share code, notes, and snippets.

@samth

samth/a.rkt

Last active June 11, 2019 04:17
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 samth/7ca16a951c9334dd48001da3ca12f574 to your computer and use it in GitHub Desktop.
Save samth/7ca16a951c9334dd48001da3ca12f574 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
a.rkt
#lang racket
(require "b.rkt")
(m 10)
Raw
b.rkt
#lang racket
(provide m)
(require (for-syntax "c.rkt"))
(define-syntax m
(syntax-parser
[(_ n)
(if (even? (fact (syntax-e #'n))) #'"even" #'"odd")]))
Raw
c.rkt
#lang racket
(provide fact)
(define (fact n) (if (<= n 1) 1 (* n (fact (sub1 n))))) ;; version 2
(define (fact n) (if (< n 1) 1 (* n (fact (sub1 n))))) ;; version 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment