I stumbled this morning on this little gem called tekuti. Basically it’s a blog system but with two special twists : it’s written in Scheme and use Git as article backend. Like the feature page report, theses two particularities provide very interesting improvements over traditional PHP+Mysql blog engine. Definitely something to hack on. Maybe it [...]
Yet Another [À Compléter]
Random thoughts of Jérémie Laval
scheme
While we are at it
(define qs (lambda (t) (if (null? t) t (let ((head (car t)) (tail (cdr t))) (append (qs (filter (lambda (x) (<= x head)) tail)) (list head) (qs (filter (lambda (x) (> x head)) tail))))))) A non optimized quick-sort in the same vein. Good for toying with Bigloo’s trace system. (define insert (lambda (elem t) (if [...]
Just some parentheses madness
(define tri-bulle (lambda (t) (tb ‘() t #f))) (define tb (lambda (left right perm) (if (null? (cdr right)) (if perm (tb ‘() (append left right) #f) (append left right)) (let ((first (car right)) (second (cadr right)) (tail (cddr right))) (if (<= first second) (tb (append left (list first)) (cons second tail) perm) (tb (append left [...]