Determine if a string is collapsible: Difference between revisions
Added Arturo implementation
m (→{{header|NetLogo}}: typo) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 444:
17 ««« - Hary S Truman »»»
</pre>
=={{header|Arturo}}==
<lang rebol>lines: [
{::}
{:"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln :}
{:..1111111111111111111111111111111111111111111111111111111111111117777888:}
{:I never give 'em hell, I just tell the truth, and they think it's hell. :}
{: --- Harry S Truman :}
]
loop lines 'line ->
print squeeze line</lang>
{{out}}
<pre>
"If I were two-faced, would I be wearing this one?" - Abraham Lincoln
.178
I never give 'em hel, I just tel the truth, and they think it's hel.
- Hary S Truman</pre>
=={{header|AutoHotkey}}==
Line 478 ⟶ 499:
resultant string: 17 characters ««« - Hary S Truman »»»
-----------------------------------------</pre>
=={{header|AWK}}==
<lang AWK>
| |||