Data update
This commit is contained in:
Ingy döt Net
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
|
|
@ -0,0 +1,27 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Test_Short_Circuit is
|
||||
function A (Value : Boolean) return Boolean is
|
||||
begin
|
||||
Put (" A=" & Boolean'Image (Value));
|
||||
return Value;
|
||||
end A;
|
||||
function B (Value : Boolean) return Boolean is
|
||||
begin
|
||||
Put (" B=" & Boolean'Image (Value));
|
||||
return Value;
|
||||
end B;
|
||||
begin
|
||||
for I in Boolean'Range loop
|
||||
for J in Boolean'Range loop
|
||||
Put (" (A and then B)=" & Boolean'Image (A (I) and then B (J)));
|
||||
New_Line;
|
||||
end loop;
|
||||
end loop;
|
||||
for I in Boolean'Range loop
|
||||
for J in Boolean'Range loop
|
||||
Put (" (A or else B)=" & Boolean'Image (A (I) or else B (J)));
|
||||
New_Line;
|
||||
end loop;
|
||||
end loop;
|
||||
end Test_Short_Circuit;
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
def a (p)
|
||||
print "a"
|
||||
p
|
||||
end
|
||||
|
||||
def b (p)
|
||||
print "b"
|
||||
p
|
||||
end
|
||||
|
||||
{% for op in ["&&", "||"] %}
|
||||
[true, false].each do |p|
|
||||
ps = p.to_s[0]
|
||||
print "r = a(#{ps}) #{ {{op}} } b(#{ps}): "
|
||||
r = a(p) {{op.id}} b(p)
|
||||
puts
|
||||
end
|
||||
{% end %}
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
(defn a [i] (print "a") i)
|
||||
(defn b [j] (print "b") j)
|
||||
|
||||
(loop [i :in [false true] j :in [false true]]
|
||||
(printf "%v and %v:" i j)
|
||||
(and (a i) (b j))
|
||||
(printf "%v or %v:" i j)
|
||||
(or (a i) (b j)))
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
HAI 1.3
|
||||
|
||||
HOW IZ I a YR BOOL
|
||||
VISIBLE "a"!
|
||||
FOUND YR BOOL
|
||||
IF U SAY SO
|
||||
|
||||
HOW IZ I b YR BOOL
|
||||
VISIBLE "b"!
|
||||
FOUND YR BOOL
|
||||
IF U SAY SO
|
||||
|
||||
I HAS A X ITZ BOTH OF I IZ a YR FAIL MKAY AN I IZ b YR WIN MKAY
|
||||
VISIBLE ""
|
||||
X R BOTH OF I IZ a YR WIN MKAY AN I IZ b YR FAIL MKAY
|
||||
VISIBLE ""
|
||||
I HAS A Y ITZ EITHER OF I IZ a YR FAIL MKAY AN I IZ b YR WIN MKAY
|
||||
VISIBLE ""
|
||||
Y R EITHER OF I IZ a YR WIN MKAY AN I IZ b YR FAIL MKAY
|
||||
VISIBLE ""
|
||||
|
||||
KTHXBYE
|
||||
|
|
@ -1,26 +1,24 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">a</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">)</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;">"a "</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #000000;">i</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
with javascript_semantics
|
||||
function a(integer i)
|
||||
printf(1,"a ")
|
||||
return i
|
||||
end function
|
||||
|
||||
<span style="color: #008080;">function</span> <span style="color: #000000;">b</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">)</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;">"b "</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #000000;">i</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
function b(integer i)
|
||||
printf(1,"b ")
|
||||
return i
|
||||
end function
|
||||
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">z</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span> <span style="color: #008080;">to</span> <span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span> <span style="color: #008080;">to</span> <span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">0</span> <span style="color: #008080;">to</span> <span style="color: #000000;">1</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #000000;">z</span> <span style="color: #008080;">then</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;">"a(%d) and b(%d) "</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">j</span><span style="color: #0000FF;">})</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;">" => %d\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">and</span> <span style="color: #000000;">b</span><span style="color: #0000FF;">(</span><span style="color: #000000;">j</span><span style="color: #0000FF;">))</span>
|
||||
<span style="color: #008080;">else</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;">"a(%d) or b(%d) "</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">j</span><span style="color: #0000FF;">})</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;">" => %d\n"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">or</span> <span style="color: #000000;">b</span><span style="color: #0000FF;">(</span><span style="color: #000000;">j</span><span style="color: #0000FF;">))</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;">for</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<!--
|
||||
for z=0 to 1 do
|
||||
for i=0 to 1 do
|
||||
for j=0 to 1 do
|
||||
if z then
|
||||
printf(1,"a(%d) and b(%d) ",{i,j})
|
||||
printf(1," => %d\n",a(i) and b(j))
|
||||
else
|
||||
printf(1,"a(%d) or b(%d) ",{i,j})
|
||||
printf(1," => %d\n",a(i) or b(j))
|
||||
end if
|
||||
end for
|
||||
end for
|
||||
end for
|
||||
|
|
|
|||
|
|
@ -0,0 +1,33 @@
|
|||
# Simulated fast function
|
||||
function a ( [boolean]$J ) { return $J }
|
||||
|
||||
# Simulated slow function
|
||||
function b ( [boolean]$J ) { Sleep -Seconds 2; return $J }
|
||||
|
||||
# These all short-circuit and do not evaluate the right hand function
|
||||
( a $True ) -or ( b $False )
|
||||
( a $True ) -or ( b $True )
|
||||
( a $False ) -and ( b $False )
|
||||
( a $False ) -and ( b $True )
|
||||
|
||||
# Measure of execution time
|
||||
Measure-Command {
|
||||
( a $True ) -or ( b $False )
|
||||
( a $True ) -or ( b $True )
|
||||
( a $False ) -and ( b $False )
|
||||
( a $False ) -and ( b $True )
|
||||
} | Select TotalMilliseconds
|
||||
|
||||
# These all appropriately do evaluate the right hand function
|
||||
( a $False ) -or ( b $False )
|
||||
( a $False ) -or ( b $True )
|
||||
( a $True ) -and ( b $False )
|
||||
( a $True ) -and ( b $True )
|
||||
|
||||
# Measure of execution time
|
||||
Measure-Command {
|
||||
( a $False ) -or ( b $False )
|
||||
( a $False ) -or ( b $True )
|
||||
( a $True ) -and ( b $False )
|
||||
( a $True ) -and ( b $True )
|
||||
} | Select TotalMilliseconds
|
||||
Loading…
Add table
Add a link
Reference in a new issue