2 lines
102 B
Text
2 lines
102 B
Text
lookup = -: (^/~& product^|/~& charval)*lsPrK0/weights alphabet
|
|
iprod = sum:-0+ lookup*p/weights
|