Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- where
- aandb = (trace "aandb" (findAB di fi)) -- Step a
- nextTi = (trace "nextTi" (makeBranch aandb)) -- Step b
- nextFi = (trace "nextFi" (newFi aandb nextTi di fi)) -- Step c --PRINT fi
- nextDi = (trace "nextDi" (newDi aandb nextTi di fi)) -- Sted d --PRINT di
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement