2 lines
131 B
Text
2 lines
131 B
Text
lookups = (-:+ * ^/~&l product^|/charval ~&)* *-* -*weights alphabet
|
|
iprod = sum:-0+ gang +^|(~&,~)*lNrXXK9 ^(~&,&h!)* lookups
|