19 lines
382 B
Text
19 lines
382 B
Text
fp.quibble = (&words) -> {
|
|
$len $= @&words
|
|
|
|
$output = \{\e
|
|
|
|
$i
|
|
repeat($[i], $len) {
|
|
$output += &words[$i] ||| ($i == -|$len?\e:($i == $len - 2?\sand\s:\,\s))
|
|
}
|
|
|
|
$output += \}\e
|
|
|
|
return $output
|
|
}
|
|
|
|
fn.println(fp.quibble(fn.arrayOf()))
|
|
fn.println(fp.quibble(fn.arrayOf(ABC)))
|
|
fn.println(fp.quibble(fn.arrayOf(ABC, DEF)))
|
|
fn.println(fp.quibble(fn.arrayOf(ABC, DEF, G, H)))
|