13 lines
451 B
Plaintext
13 lines
451 B
Plaintext
(load "ascii.zp")
|
|
(let ((trimmed (|> (delay (string:join zepto:args))
|
|
(lambda (x) (string:substitute x "\t" " "))
|
|
string->list
|
|
list->vector
|
|
(curry vector:reduce
|
|
(lambda (acc x) (if (eq? (vector:last acc) x) acc (++ acc x)))
|
|
{})
|
|
vector->list
|
|
list->string)))
|
|
(ascii:cowsay trimmed))
|
|
""
|