The Name Game: Difference between revisions
m
→{{header|Factor}}: simplify and update to Factor 0.98
Catskill549 (talk | contribs) |
m (→{{header|Factor}}: simplify and update to Factor 0.98) |
||
Line 369:
=={{header|Factor}}==
{{trans|Kotlin}}
{{works with|Factor|0.98}}
<lang factor>USING: ascii combinators interpolate io kernel locals
pair-rocket qw sequences ;
IN: rosetta-code.name-game
Line 386 ⟶ 387:
CHAR: F => [ "" F! ]
CHAR: M => [ "" M! ] [ drop ] } case
[I ${Name}, ${Name}, bo-${B
${Name}!I] nl nl ;
▲Banana-fana fo-${4}${5}
qw{ Gary Earl Billy Felix Milton Steve } [ name-game ] each</lang>
| |||