Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
|
|
@ -0,0 +1,10 @@
|
|||
# Assume $c is specified as a single character correctly
|
||||
def squeeze($c): gsub("[\($c)]+"; $c);
|
||||
|
||||
def Guillemets: "«««\(.)»»»";
|
||||
|
||||
def Squeeze(s; $c):
|
||||
"Squeeze character: \($c)",
|
||||
(s | "Original: \(Guillemets) has length \(length)",
|
||||
(squeeze($c) | "result is \(Guillemets) with length \(length)")),
|
||||
"";
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
Squeeze("\"If I were two-faced, would I be wearing this one?\" --- Abraham Lincoln "; "-"),
|
||||
Squeeze ("..1111111111111111111111111111111111111111111111111111111111111117777888"; "7"),
|
||||
Squeeze ("I never give 'em hell, I just tell the truth, and they think it's hell. "; "."),
|
||||
Squeeze (" --- Harry S Truman "; " "),
|
||||
Squeeze (" --- Harry S Truman "; "-"),
|
||||
Squeeze (" --- Harry S Truman "; "r"),
|
||||
|
||||
Squeeze("SabcSS:SSdefSSSghSS";"S")
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
Squeeze character: -
|
||||
Original: «««"If I were two-faced, would I be wearing this one?" --- Abraham Lincoln »»» has length 72
|
||||
result is «««"If I were two-faced, would I be wearing this one?" - Abraham Lincoln »»» with length 70
|
||||
|
||||
Squeeze character: 7
|
||||
Original: «««..1111111111111111111111111111111111111111111111111111111111111117777888»»» has length 72
|
||||
result is «««..1111111111111111111111111111111111111111111111111111111111111117888»»» with length 69
|
||||
|
||||
Squeeze character: .
|
||||
Original: «««I never give 'em hell, I just tell the truth, and they think it's hell. »»» has length 72
|
||||
result is «««.»»» with length 1
|
||||
|
||||
Squeeze character:
|
||||
Original: ««« --- Harry S Truman »»» has length 72
|
||||
result is ««« --- Harry S Truman »»» with length 20
|
||||
|
||||
Squeeze character: -
|
||||
Original: ««« --- Harry S Truman »»» has length 72
|
||||
result is ««« - Harry S Truman »»» with length 70
|
||||
|
||||
Squeeze character: r
|
||||
Original: ««« --- Harry S Truman »»» has length 72
|
||||
result is ««« --- Hary S Truman »»» with length 71
|
||||
|
||||
Squeeze character: S
|
||||
Original: «««SabcSS:SSdefSSSghSS»»» has length 19
|
||||
result is «««SabcS:SdefSghS»»» with length 14
|
||||
Loading…
Add table
Add a link
Reference in a new issue