UniTO/tesi/traces/example6.ml
2024-10-29 09:11:05 +01:00

11 lines
329 B
Standard ML
Executable file

[@@@warning "-20"]
external observe : 'a -> 'b = "observe"
let mm = function
| [(1, 2), 2]::[] -> observe ([(1, 2), 2]::[])
| [(1, 2), 2]::_ -> observe [(1, 2), 2]
| [(1, 2), x]::_ -> observe [(1, 2), x]
| [x]::[] -> observe [x]
| [x]::[y]::[] -> observe [x, y]
| [x, y]::z -> observe [(x, y), z]
| x -> observe x