Skip to content

Instantly share code, notes, and snippets.

View mitsuji's full-sized avatar

Mitsuji, Takamasa mitsuji

View GitHub Profile
@SaitoAtsushi
SaitoAtsushi / geo3x3.sls
Created February 25, 2021 06:13
Geo3x3 in Scheme (R6RS)
#!r6rs
(library (geo3x3)
(export encode decode)
(import (rnrs))
(define (encode lat lng level)
(assert (real? lat))
(assert (real? lng))
(assert (integer? level))
(assert (> level 0))