#lang scheme/base
(provide (all-defined-out))

; just some stuff which is probably defined in standard schemish somewhere

(define (assoc-remove k l)
  (cond
    ((null? l) '())
    ((eq? (car (car l)) k)
     (assoc-remove k (cdr l)))
    (else
     (cons (car l) (assoc-remove k (cdr l))))))

(define (choose l)
  (list-ref l (random (length l))))

(define (list-contains k l)
  (cond 
    ((null? l) #f)
    ((eq? (car l) k) #t)
    (else (list-contains k (cdr l)))))

(define (string-split s c)
  (define (_ sl tl cl)
    (cond 
      ((null? sl) (if (null? cl) tl (append tl (list (list->string cl)))))
      ((eq? (car sl) c)
       (_ (cdr sl) (append tl (list (list->string cl))) '()))
      (else
       (_ (cdr sl) tl (append cl (list (car sl)))))))
  (_ (string->list s) '() '()))

(define (list-string-concat l t)
  (cond
    ((null? l) "")
    (else
     (string-append (car l) t (list-string-concat (cdr l) t)))))