You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
417 B
18 lines
417 B
#! /usr/bin/env racket
|
|
#lang racket
|
|
|
|
(define (update htable settings)
|
|
(cond ((null? settings) htable)
|
|
(else (map (lambda (setting)
|
|
(hash-set! htable (first setting) (second setting))) settings)
|
|
htable)))
|
|
|
|
(define (partial f x)
|
|
(lambda (y) (f x y)))
|
|
|
|
(define (flip f)
|
|
(lambda (y x) (f x y)))
|
|
|
|
(define nowhere (open-output-nowhere 'nowhere #t))
|
|
|
|
(provide (all-defined-out))
|
|
|