Skip to content

Instantly share code, notes, and snippets.

@serpent7776
Created May 25, 2023 19:02
Show Gist options
  • Save serpent7776/b50689fa73ed8ec41521911c59e13dad to your computer and use it in GitHub Desktop.
Save serpent7776/b50689fa73ed8ec41521911c59e13dad to your computer and use it in GitHub Desktop.
datatype '_ ~ = && of '_ * '_
| || of '_ * '_
| ! of '_
| ` of '_
infix || &&
fun \ ((\ && $) || (% && ?)) = (! \ || ! $) && (! % || ! ?)
| \ ((\ || $) && (% || ?)) = (! \ && ! $) || (! % && ! ?)
| \ ($ && %) = ! $ || ! %
| \ ($ || %) = ! $ && ! %
| \ (` $) = ! (` $)
| \ (! $) = (` o `) $
fun main () = ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment