Comma quibbling: Difference between revisions
Content deleted Content added
m →{{header|Factor}}: give the comma-quibble word fewer responsibilities |
→{{header|Factor}}: rewrite |
||
Line 1,224:
=={{header|Factor}}==
<lang factor>USING:
▲: quibble-list ( seq -- str )
dup length {
{ 0 [ drop "
{ 1 [ first
{ 2 [
[ drop
} case "{%s}" sprintf ;
{ } qw{ ABC } qw{ ABC DEF } qw{ ABC DEF G H }
[
{{out}}
<pre>
|