Tom Says: Code something crazy every day you feel like it!
My first useful, recursive function in OCaml. I like this language, especially its compiler warnings, though it didn't warn me that my variable names were useless.
let rec join a b =
match b with
[] -> ""
| head :: [] -> head
| head :: tail -> head ^ a ^ (join a tail)
;;Posted Nov 10, 2007, in the evening.