Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -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)")),
"";

View file

@ -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")

View file

@ -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