Determine if a string is collapsible: Difference between revisions
Content added Content deleted
(julia example) |
mNo edit summary |
||
Line 141: | Line 141: | ||
««« - Hary S Truman »»» (length 17). |
««« - Hary S Truman »»» (length 17). |
||
</pre> |
</pre> |
||
==== Condensed version: ==== |
|||
<lang julia>const teststrings = [ "", |
|||
""""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 "] |
|||
collapse(s) = (t = isempty(s) ? "" : s[1]; for c in s if c != t[end] t *= c end; end; t) |
|||
function testcollapse(arr) |
|||
for s in arr |
|||
n, t = length(s), collapse(s) |
|||
println("«««$s»»» (length $n)\n collapses to:\n«««$t»»» (length $(length(t))).\n") |
|||
end |
|||
end |
|||
testcollapse(teststrings) |
|||
</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |