Determine if a string is collapsible: Difference between revisions
Content added Content deleted
m (→{{header|NetLogo}}: typo) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
| Line 444: | Line 444: | ||
17 ««« - Hary S Truman »»» |
17 ««« - Hary S Truman »»» |
||
</pre> |
</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}}== |
=={{header|AutoHotkey}}== |
||
| Line 478: | Line 499: | ||
resultant string: 17 characters ««« - Hary S Truman »»» |
resultant string: 17 characters ««« - Hary S Truman »»» |
||
-----------------------------------------</pre> |
-----------------------------------------</pre> |
||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |
||