You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
|
|
|
|
#lang br
|
|
|
|
|
(require syntax/strip-context sugar)
|
|
|
|
|
(provide (all-defined-out) (all-from-out syntax/strip-context sugar))
|
|
|
|
|
|
|
|
|
|
(define ★ '★) (define ★★ '★★)
|
|
|
|
|
|
|
|
|
|
(define (port->datums port)
|
|
|
|
|
(for/list ([datum (in-port read port)])
|
|
|
|
|
datum))
|
|
|
|
|
|
|
|
|
|
(define (number->digits num)
|
|
|
|
|
(for/list ([c (in-string (number->string num))])
|
|
|
|
|
(string->number (string c))))
|
|
|
|
|
|
|
|
|
|
(define (dirname path)
|
|
|
|
|
(define-values (dir name _) (split-path path))
|
|
|
|
|
dir)
|
|
|
|
|
|
|
|
|
|
(define (=* . xs)
|
|
|
|
|
(or (< (length xs) 2) (apply = xs)))
|
|
|
|
|
|
|
|
|
|
(define (app x . args) (apply x args))
|
