11 lines
145 B
Haskell
11 lines
145 B
Haskell
|
|
||
|
|
||
|
module AI (aimove) where
|
||
|
|
||
|
import Eval
|
||
|
import Lambda
|
||
|
import GoalTransform
|
||
|
|
||
|
aimove :: Turn Goal
|
||
|
aimove = return (Just 0, read "S dec (S get I)")
|