Anonymous user
Determine if a string is squeezable: Difference between revisions
no edit summary
Not a robot (talk | contribs) (Add 8080 assembly) |
No edit summary |
||
Line 1,336:
After squeeze: ««« --- Hary S Truman »»» (length 71)
</pre>
=={{header|freebasic}}==
<lang freebasic>
function squeeze(byval s as string,target as string) as string
dim as string g
dim as long n
for n =0 to len(s)-2
if s[n]=asc(target) then
if s[n]<>s[n+1] then g+=chr(s[n])
else
g+=chr(s[n])
end if
next n
if len(s) then g+=chr(s[n])
return g
end function
dim as string z,o
print "character "" """
o=""
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze("", " ")
print "squeeze "; z;tab(90);"(";len(z);")"
print
print "character ""-"""
o= """If I were two-faced, would I be wearing this one?"" --- Abraham Lincoln "
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(o,"-")
print "squeeze "; z;tab(90);"(";len(z);")"
print
print "character ""7"""
o="..1111111111111111111111111111111111111111111111111111111111111117777888"
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(o,"7")
print "squeeze "; z;tab(90);"(";len(z);")"
print
print "character ""."""
o="I never give 'em hell, I just tell the truth, and they think it's hell. "
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(o,".")
print "squeeze ";z ;tab(90);"(";len(z);")"
print
dim as string s = " --- Harry S Truman "
print "character "" """
o=" --- Harry S Truman "
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(s, " ")
print "squeeze ";z ;tab(90);"(";len(z);")"
print
print "character ""-"""
o=" --- Harry S Truman "
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(s, "-")
print "squeeze "; z;tab(90);"(";len(z);")"
print
print "character ""r"""
o=" --- Harry S Truman "
print "original ";o;tab(90);"(";len(o);")"
z=Squeeze(s, "r")
print "squeeze "; z;tab(90);"(";len(z);")"
sleep
</lang>
{{out}}
<pre>
character " "
original ( 0)
squeeze ( 0)
character "-"
original "If I were two-faced, would I be wearing this one?" --- Abraham Lincoln ( 72)
squeeze "If I were two-faced, would I be wearing this one?" - Abraham Lincoln ( 70)
character "7"
original ..1111111111111111111111111111111111111111111111111111111111111117777888 ( 72)
squeeze ..1111111111111111111111111111111111111111111111111111111111111117888 ( 69)
character "."
original I never give 'em hell, I just tell the truth, and they think it's hell. ( 72)
squeeze I never give 'em hell, I just tell the truth, and they think it's hell. ( 72)
character " "
original --- Harry S Truman ( 72)
squeeze --- Harry S Truman ( 20)
character "-"
original --- Harry S Truman ( 72)
squeeze - Harry S Truman ( 70)
character "r"
original --- Harry S Truman ( 72)
squeeze --- Hary S Truman ( 71)
</pre>
=={{header|Go}}==
| |||