ionchy
/
adventofcode
1
0
Fork 0
Code

Remove unused library functions.

This commit is contained in:
Jonathan Chan 2020-12-05 22:29:48 -08:00 committed by Jonathan Chan
parent 9ae585ebed
commit fcc51e1b9c
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lib.rkt
View File

@ -1,7 +1,8 @@
#lang racket #lang racket
(require (require
curly-fn
threading
(only-in data/queue (only-in data/queue
make-queue make-queue
enqueue!) enqueue!)
@ -9,7 +10,10 @@
read-lines read-lines
read-file)) read-file))
(provide problem-input (provide (all-from-out curly-fn
threading)
problem-input
problem-input-all problem-input-all
problem-input-grouped problem-input-grouped
show-solution show-solution
@ -25,8 +29,6 @@
∘ ∂ ∂r $ % ∘ ∂ ∂r $ %
uncurry uncurry
apply*
apply-when
string->number* string->number*
string->symbol* string->symbol*
@ -70,15 +72,6 @@
(curry apply)) (curry apply))
(define $ uncurry) (define $ uncurry)
;; apply* : (a -> b) -> a -> b
(define (apply* f a)
(f a))
;; apply-when : a -> (a -> b) -> b
;; Apply given function only when a is not #f; return #f otherwise
(define (apply-when p f)
(and p (f p)))
;; IO helpers ;; ;; IO helpers ;;