Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,32 +0,0 @@
|
|||
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
||||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
procedure Test_All_Chars_Are_Same is
|
||||
procedure All_Chars_Are_Same (S : in String) is
|
||||
First_Diff : Natural := 0;
|
||||
begin
|
||||
Put_Line ("Input = """ & S & """, length =" & S'Length'Image);
|
||||
for I in S'First + 1 .. S'Last loop
|
||||
if S(I) /= S(S'First) then
|
||||
First_Diff := I;
|
||||
exit;
|
||||
end if;
|
||||
end loop;
|
||||
if First_Diff = 0 then
|
||||
Put_Line (" All characters are the same.");
|
||||
else
|
||||
Put (" First difference at position" & First_Diff'Image &
|
||||
", character = '" & S(First_Diff) &
|
||||
"', hex = ");
|
||||
Put (Character'Pos (S(First_Diff)), Width => 0, Base => 16);
|
||||
New_Line;
|
||||
end if;
|
||||
end All_Chars_Are_Same;
|
||||
begin
|
||||
All_Chars_Are_Same ("");
|
||||
All_Chars_Are_Same (" ");
|
||||
All_Chars_Are_Same ("2");
|
||||
All_Chars_Are_Same ("333");
|
||||
All_Chars_Are_Same (".55");
|
||||
All_Chars_Are_Same ("tttTTT");
|
||||
All_Chars_Are_Same ("4444 444k");
|
||||
end Test_All_Chars_Are_Same;
|
||||
|
|
@ -15,6 +15,6 @@ allSameChars?: function [str][
|
|||
loop strings 's [
|
||||
prints ["\"" ++ s ++ "\"" ~"(size |size s|):"]
|
||||
firstNotSame: allSameChars? s
|
||||
if? null? firstNotSame -> print "all the same."
|
||||
else -> print ~"first different char `|get s firstNotSame|` at position |firstNotSame|."
|
||||
switch null? firstNotSame -> print "all the same."
|
||||
-> print ~"first different char `|get s firstNotSame|` at position |firstNotSame|."
|
||||
]
|
||||
|
|
|
|||
|
|
@ -1,23 +1,21 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">samechar</span><span style="color: #0000FF;">(</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">msg</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"all characters are the same"</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">l</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">l</span><span style="color: #0000FF;">>=</span><span style="color: #000000;">2</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">2</span> <span style="color: #008080;">to</span> <span style="color: #000000;">l</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #000000;">si</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">si</span><span style="color: #0000FF;">!=</span><span style="color: #000000;">ch</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">su</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">utf32_to_utf8</span><span style="color: #0000FF;">({</span><span style="color: #000000;">si</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #000000;">msg</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">`first different character "%s"(#%02x) at position %d`</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">su</span><span style="color: #0000FF;">,</span><span style="color: #000000;">si</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">exit</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\"%s\" (length %d): %s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #7060A8;">utf32_to_utf8</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">),</span><span style="color: #000000;">l</span><span style="color: #0000FF;">,</span><span style="color: #000000;">msg</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
with javascript_semantics
|
||||
procedure samechar(sequence s)
|
||||
string msg = "all characters are the same"
|
||||
integer l = length(s)
|
||||
if l>=2 then
|
||||
integer ch = s[1]
|
||||
for i=2 to l do
|
||||
integer si = s[i]
|
||||
if si!=ch then
|
||||
string su = utf32_to_utf8({si})
|
||||
msg = sprintf(`first different character "%s"(#%02x) at position %d`,{su,si,i})
|
||||
exit
|
||||
end if
|
||||
end for
|
||||
end if
|
||||
printf(1,"\"%s\" (length %d): %s\n",{utf32_to_utf8(s),l,msg})
|
||||
end procedure
|
||||
|
||||
<span style="color: #008080;">constant</span> <span style="color: #000000;">tests</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">""</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" "</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"2"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"333"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">".55"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"tttTTT"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"4444 444k"</span><span style="color: #0000FF;">,</span>
|
||||
<span style="color: #7060A8;">utf8_to_utf32</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"🐶🐶🐺🐶"</span><span style="color: #0000FF;">),</span><span style="color: #7060A8;">utf8_to_utf32</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"🎄🎄🎄🎄"</span><span style="color: #0000FF;">)}</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span> <span style="color: #000000;">samechar</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span> <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<!--
|
||||
constant tests = {""," ","2","333",".55","tttTTT","4444 444k",
|
||||
utf8_to_utf32("🐶🐶🐺🐶"),utf8_to_utf32("🎄🎄🎄🎄")}
|
||||
for i=1 to length(tests) do samechar(tests[i]) end for
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue