Skip to content

Instantly share code, notes, and snippets.

@okram
Last active August 25, 2020 21:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save okram/cac89524fd197e9384fa0a6c04034c28 to your computer and use it in GitHub Desktop.
Save okram/cac89524fd197e9384fa0a6c04034c28 to your computer and use it in GitHub Desktop.
mmlang> (1,2,3)>--<(int{3};[mult,10];-<(-<([is>20];-<(+70,+170,+270)>-)>-,
......> -<([is>10];-<(*10,*20,*30)>- )>-,
......> -<(_;{0})>- )>-;[plus,100])>-
==>500
==>200
==>300{2}
==>400{2}
==>700{2}
==>1000
// NO FINAL MERGE (thus, the 3 branches remain independent)
mmlang> (1,2,3)>--<(int{3};[mult,10];-<(-<([is>20];-<(+70,+170,+270)>-)>-,
......> -<([is>10];-<(*10,*20,*30)>- )>-,
......> -<(_;{0})>- )>-;[plus,100])
==>(1;10;{0};{0})
==>(2;20;[200,400,600];[300,500,700])
==>(3;30;[100,200,300{2},600,900];[200,300,400{2},700,1000])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment