Skip to content

Instantly share code, notes, and snippets.

@okram
Created January 2, 2020 05:33
Show Gist options
  • Save okram/ee7d6b04057f0d435f35a3996d58b480 to your computer and use it in GitHub Desktop.
Save okram/ee7d6b04057f0d435f35a3996d58b480 to your computer and use it in GitHub Desktop.
mmlang> [int;[bool:int]]~z => (z.0) + (z.1.bool) => [explain]
instruction domain range state
---------------------------------------------------------------------------------------------------------------------------------
[map,[int;[bool:int]]~z] [int;[bool:int]]~z => [int;[bool:int]]~z -> [[int;[bool:int]]~z]
[get,0] [int;[bool:int]]~z => int -> [[int;[bool:int]]~z]
[plus,int <= [map,[int;[bool:int]]~z][get,1][get,bool]] int => int -> [[int;[bool:int]]~z]
[map,[int;[bool:int]]~z] int => [int;[bool:int]]~z -> [[int;[bool:int]]~z]
[get,1] [int;[bool:int]]~z => [bool:int] -> [[int;[bool:int]]~z]
[get,bool]
==>int <= [map,[int;[bool:int]]~z][get,0][plus,int <= [map,[int;[bool:int]]~z][get,1][get,bool]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment