Skip to content

Instantly share code, notes, and snippets.

View erkin's full-sized avatar

Lulu Cathrinus Grimalkin erkin

View GitHub Profile
@erkin
erkin / pure-mlang.rkt
Created January 9, 2020 08:46
`racket/base` sans mutative procedures
#lang racket/base
(provide
(except-out
(all-from-out racket/base)
set!
set!-values
box-cas!
bytes-copy!
bytes-fill!
bytes-set!
#lang racket/base
(define-syntax-rule (assert expr)
(unless expr
(raise-user-error "Assertion failed: " (quote expr))))
(define (factorial n)
(if (zero? n)
1
(* n (factorial (sub1 n)))))

Keybase proof

I hereby claim:

  • I am erkin on github.
  • I am erkinb (https://keybase.io/erkinb) on keybase.
  • I have a public key ASAc4RSCeufWknLV_H9Cmb6bYPis3q4Pab6z7vRxfvBX8go

To claim this, I am signing this object:

@erkin
erkin / issue
Created December 8, 2018 07:51

This is \l on \n, running \s on \m,
with kernel \r.
\\ /
-->*<--
/o\\
/_\\_\\
/_/_0_\\
/_o_\\_\\_\\
/_/_/_/_/o\\