Determine if a string is collapsible: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Added BaCon version.
Line 233: Line 233:


=={{header|BaCon}}==
=={{header|BaCon}}==
<lang qbasic>DECLARE str$ = "; \
<lang qbasic>DECLARE s$ = "; \
\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ; \
\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln ; \
..1111111111111111111111111111111111111111111111111111111111111117777888; \
..1111111111111111111111111111111111111111111111111111111111111117777888; \
Line 241: Line 241:
headmistressship"
headmistressship"


FOR x$ IN str$ STEP ";"
FOR x$ IN s$ STEP ";"
found = 0
found = 0
PRINT "<<<", x$, ">>> - length: ", LEN(x$)
PRINT "<<<", x$, ">>> - length: ", LEN(x$)
Retrieved from "https://rosettacode.org/wiki/Determine_if_a_string_is_collapsible"