author | oheimb |
Fri, 02 Jun 2000 17:46:32 +0200 | |
changeset 9020 | 1056cbbaeb29 |
parent 6252 | 935f183bf406 |
child 17481 | 75166ebb619b |
permissions | -rw-r--r-- |
6252 | 1 |
|
2 |
||
3 |
(* code by Sara Kalvala, based on Paulson's LK |
|
4 |
and Moore's tisl.ML *) |
|
5 |
||
6 |
washing = ILL + |
|
7 |
||
8 |
consts |
|
9 |
||
10 |
dollar,quarter,loaded,dirty,wet,clean :: "o" |
|
11 |
||
12 |
||
13 |
rules |
|
14 |
||
15 |
||
16 |
change |
|
17 |
"dollar |- (quarter >< quarter >< quarter >< quarter)" |
|
18 |
||
19 |
load1 |
|
20 |
"quarter , quarter , quarter , quarter , quarter |- loaded" |
|
21 |
||
22 |
load2 |
|
23 |
"dollar , quarter |- loaded" |
|
24 |
||
25 |
wash |
|
26 |
"loaded , dirty |- wet" |
|
27 |
||
28 |
dry |
|
29 |
"wet, quarter , quarter , quarter |- clean" |
|
30 |
||
31 |
end |
|
32 |
||
33 |