Anonymous user
Determine if a string is collapsible: Difference between revisions
m
→{{header|BaCon}}
Line 233:
=={{header|BaCon}}==
<lang bacon>
DATA "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln
DATA "..1111111111111111111111111111111111111111111111111111111111111117777888
DATA "I never give 'em hell, I just tell the truth, and they think it's hell.
DATA " --- Harry S Truman
DATA "The better the 4-wheel drive, the further you'll be from help when ya get stuck!
DATA "headmistressship"
DOTIMES 7
READ x$
found = 0
PRINT "<<<", x$, ">>> - length: ", LEN(x$)
Line 252 ⟶ 253:
NEXT
PRINT ">>> - length: ", found
{{out}}
<pre><<<>>> - length: 0
| |||