tm.fun 788 B

1234567891011121314151617181920212223242526
  1. #import std
  2. #import nat
  3. #import psp
  4. #import ogl
  5. #binary+
  6. tm =
  7. ~&iNC operator[
  8. mnemonic: '^-',
  9. peer: '*^',
  10. dyadic: mode[solo: &],
  11. options: pnodes,
  12. opthelp: <'a pointer expression serves as a postprocessor'>,
  13. help: mode[
  14. infix: 'f^-g maps f to internal nodes and g to leaves in a tree',
  15. prefix: '^-g maps g only to terminal nodes in a tree',
  16. postfix: 'f^- maps f only to non-terminal nodes in a tree',
  17. solo: '^- (f,g) maps f to internal nodes and g to leaves'],
  18. meanings: ~&H\-+~&lNlXBrY,percolation,~&mS+- mode$[
  19. infix: //+ "h". "h"++ *^0+ ^V\~&v+ ~&v?+ ~&d;~~,
  20. prefix: //+ "h". "h"++ *^0+ ^V\~&v+ ~&v?/~&d+ ~&d;,
  21. postfix: //+ "h". "h"++ *^0+ ^V\~&v+ ~&v?\~&d+ ~&d;,
  22. solo: //+ "h". "h"++ *^0+ ^V\~&v+ ~&v?+ ~&d;~~]]