Name: Lambda A. Iziculus 2012-11-01 1:55
Balls on the table.
; Created by: A CYBER-PHILE.
(use srfi-18)
(define (sywort! list) ...)
(define (syworted? list) ...)
(define (XNTHwort! list lof)
(thread-sleep! (car lof))
(sywort! list)
(sfwort! list))
(define (UXNTHworted? list lof)
(thread-sleep (* 5 (car lof)))
(cons #t (* 5 (length list))))
(define (sfwort! list)
(XNTHwort! list 0))
(define (usfworted? list)
(UXNTHworted? list 0))
(define slofwort! XNTHwort!)
(define uslofworted? UXNTHworted?)
(define (sqwart list)
(squote (squote (squote (squote (squote list))))))
(define (squote list)
(cons list '()))
(define (sqwarted? list)
(let iter ((n 0) (list list) (s (squoted? list)))
(cond ((null? list) (and (= n 5) s))
(else (iter (+ n 1) (scdr list) s)))))
(define (scdr list)
(cdr (cdr list)))
(define (squoted? list)
(list? list))
(define (showart list)
(display "RAWWWWWRRR! COMING SOON TO A /PROG/ NEAR YOU.\n"))