1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
1
f8
b08
0814
cbc14
c00032
3000b0e
71747735
b452f0533
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...

1
2
3
4
5
6
7
8
9
main = do
         x <- readNum
         if x == 42
           then putStr("")
           else do
             putStr  (show (x) ++ "\n")
             main
       where
         readNum :: IO Integer
 ...

1
2
3
4
5
6
7
8
9
random.adb                                                                                          0000644 0001750 0001750 00000002756 10777751105 011420  0                                                                                                    ustar   adam                            adam                                                                                                                                                                                                                   
with Ada.Text_IO, Calendar;
use Ada.Text_IO, Calendar;
 
package body Random is
 
X_initial : FLOAT_ITEM := 0.0;
M         : FLOAT_ITEM := 1.0;
A         : FLOAT_ITEM := 7.0;
 ...

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
2
3
4
procedure main () 
    while (l := read()) ~= 12 do 
       write(l); 
 end

1
2
3
4
5
6
7
8
9
1
f8
b08
0814
cbc14
c00032
3000b0e
71747735
b452f0533
 ...

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
ewew

1
 

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
2
3
4
5
6
7
8
9
procedure main()
    s := "Mon Dec 8"
    s ? write(Mdate() | "not a valid date")
end
# Define a matching function that returns
# a string that matches a day month dayofmonth
procedure Mdate()
# Define some initial values
static dates
 ...

1
43:195-88:104-25:451-45:061-99:400-95:069-58:500

1
2
3
procedure main()
  write("Hello world!")
end

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
2
3
4
procedure main () 
    while (l := read()) ~= 42 do 
       write(l); 
 end

1
2
3
4
5
6
7
8
procedure star(s)
  suspend "" | (star(s) || !s)
end
 
procedure main()
  every write(star('abc')) \30
  write("...")
end