From e3294bff49f9c24f982d5a2203b4263dd4d4dd2f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 26 Apr 2019 10:42:59 +0200 Subject: Remove weird file helper. --- module/helpers.scm | 43 ------------------------------------------- 1 file changed, 43 deletions(-) delete mode 100644 module/helpers.scm diff --git a/module/helpers.scm b/module/helpers.scm deleted file mode 100644 index 717a10d4..00000000 --- a/module/helpers.scm +++ /dev/null @@ -1,43 +0,0 @@ -(use-modules (srfi srfi-1) - (srfi srfi-8) ; receive - ) - -(define (nlist? l) - "Returns #t if l is a pair that is not a list." - (and (pair? l) - (not (list? l)))) - -(define (flatten tree) - "Flattens tree, should only return propper lists." - (cond ((null? tree) '()) - ((list? tree) - (if (null? (cdr tree)) - (flatten (car tree)) - (let ((ret (cons (flatten (car tree)) - (flatten (cdr tree))))) - (if (nlist? ret) - (list (car ret) (cdr ret)) - ret)))) - (else tree))) - - -(define (map-lists f lst) - "Map f over lst, if (car lst) is a list, pass the list to f. If (car list) -isn't a list, pass the rest of lst to f." - (cond ((null? lst) '()) - ((list? (car lst)) (cons (f (car lst)) - (map-lists f (cdr lst)))) - (else (f lst)))) - -(define (beautify tree) - "Takes a prefix tree and turns some characters to strings." - (define (helper branch) - (receive (head tail) - (span char? branch) - (cons (list->string head) - (beautify tail)))) - (if (or (null? tree) - (not (list? tree))) - tree - (cons (beautify (car tree)) - (map-lists helper (cdr tree))))) -- cgit v1.2.3