aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2023-12-16 21:33:55 -08:00
parent 35bcdeebf8
commit 74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Determine-if-a-string-is-squeezable/EasyLang/determine-if-a-string-is-squeezable.easy Normal file
View file

@ -0,0 +1,23 @@
func$ squeeze s$ x$ .
for c$ in strchars s$
if c$ <> x$ or c$ <> cc$
r$ &= c$
.
cc$ = c$
.
return r$
.
proc do s$ x$ . .
print "'" & x$ & "'"
print "«««" & s$ & "»»» (" & len s$ & ")"
r$ = squeeze s$ x$
print "«««" & r$ & "»»» (" & len r$ & ")"
print ""
.
do "" " "
do "\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln " "-"
do "..1111111111111111111111111111111111111111111111111111111111111117777888" "7"
do "I never give 'em hell, I just tell the truth, and they think it's hell. " "."
do " --- Harry S Truman " " "
do " --- Harry S Truman " "-"
do " --- Harry S Truman " "r"

2
Task/Determine-if-a-string-is-squeezable/Wren/determine-if-a-string-is-squeezable.wren
View file

@ -1,4 +1,4 @@
import "/fmt" for Fmt
import "./fmt" for Fmt
// Returns squeezed string, original and new lengths in
// unicode code points (not normalized).