Skip to content
Snippets Groups Projects
Commit 1fae3284 authored by pm3g19's avatar pm3g19
Browse files

Improved isEqual semantics

parent 3f39c806
No related branches found
No related tags found
No related merge requests found
......@@ -26,8 +26,9 @@ eval env expr = let (eval', evalFull') = (eval env, evalFull env) in case expr o
([Set records], [lambda]) -> Set (map (\record -> eval' $ FuncCall lambda [] [record]) records)
_ -> error "Map argument error"
IsEqual -> let (e1:e2:_) = args' in -- TODO not sufficent.
Boolean (e1 == e2)
IsEqual -> case args' of -- TODO not sufficent.
[e1, e2] -> Boolean (e1 == e2)
_ -> "isEqual argument error"
XProduct -> case inputSets' of
[(Set l1), (Set l2)] -> Set $ [ x `concatRecord` y | x <- l1, y <- l2]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment