Comma quibbling: Difference between revisions
Content deleted Content added
Line 2,133: | Line 2,133: | ||
} |
} |
||
\\ we use ? for Print |
\\ we use ? for Print |
||
? f$({[]}) |
|||
? f$({["ABC"]}) |
|||
? f$({["ABC", "DEF"]}) |
|||
? f$({["ABC","DEF", "G", "H"]}) |
|||
} |
|||
Checkit |
|||
</lang> |
|||
===Using String functions only=== |
|||
<lang M2000 Interpreter> |
|||
Module Checkit { |
|||
function f$ { |
|||
what$=filter$(trim$(letter$), chr$(34)) |
|||
what$=Mid$(what$, 2, len(what$)-2) |
|||
count=Len(what$)-Len(filter$(what$,",")) |
|||
if count>2 then m=rinstr(what$, ", ") : insert m, 2 what$=" and " |
|||
="{"+what$+"}" |
|||
} |
|||
? f$({[]}) |
? f$({[]}) |
||
? f$({["ABC"]}) |
? f$({["ABC"]}) |
||
Line 2,160: | Line 2,179: | ||
=resp$+"}" |
=resp$+"}" |
||
} |
} |
||
\\ we use ? for Print |
|||
? f$((,)) |
? f$((,)) |
||
? f$(("ABC",)) |
? f$(("ABC",)) |