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