Name: Anonymous 2011-06-29 5:30
Camelcase
// Symta
triples A B C @Xs => [A B C] @(triples Xs)
// Qi
(define triples [] -> []
[W X Y | Z] -> [[W X Y] | (triples Z)])
// Symta
findBigger [X ?<X] -> X
;[_ Y] -> Y
// Qi
(define find-bigger [X Y] -> X where (> X Y)
[X Y] -> Y where (> Y X))