$wget shakti.com/edu/k.zip;unzip k;make

,!   +   - *   %    &and |or <   >    =    ~   @     ?ind ^cut #take _drop  F'/\ map over scan
,int abs - sqr sqrt flip rev asc desc freq not first uniq sort count floor  f'/\ map over scan
select [count first last min max sum avg] by from    rand rule grid (also &|<>=) while if else

k-torch n[012..] Zigmoid(a*x%1+exp-x) Zoftmax(x%+/x:exp x-max x) Rms(x%sqrt avg sqr x)
fwd(24M/14)[6 14 288 288] f::x+g fyZey:Rx+:d(vi,:cy)ShZ(ki,:n.by)*(%h?#x)?(n:#@k).ay:Rx
gen(37M/18)[   32000 288] g::x?Mx:a@zf/ax
tcn(.6M/16)[13 50 192 64] a+0|b?d^0|c?d^x

mathematics from 4400BC (iraq egypt india ..) scale:5,1 3 5(*,%)3 [1 9 5 1:3 3 5:3 15]

s:1'                /sort         s rand 16                   uruk -4400 divide&impera
q:avg/1>+           /quadrant     p grid 96                 thebes -3200
a:(+\|)\            /fibonacci    f 2 3       pingala       ujjain  -300
g:(!\|)/            /gcdivisor    g 6 4       euclid    alexandria  -300
p::(+x*)/1 2 3      /polynomial   p rand 16   al-khwarizmi baghdad   820
r::(-x*)/1 3 5      /taylorseries q rand 16   madhava       kerala  1390 arc cossin
e::x log x%+/x      /entropy      e freq kj   napier       louvain  1572 ratio zeno
f:(+,-.)0'          /fft          f rand 16   gauss      brunswick  1805 divide&impera
w:(k log)w'         /wordle       w 2315      boltzmann       graz  1872 divide&impera
m::2>+(x+*)/x       /mandelbrot   m grid 96   fatou&julia    paris  1915 pi:abs log -1

rosetta       infix               prefix                      postfix
k      ()[]:  +-*%!&|<>=~@?^#_,   +-*%~_&|^<>?=#!@,           '/\
apl    ()[]:  +-*%!&|<>=~ i TT,   +-  ~_&| AA   ! ,           '/\
python ()[]=  +-*/%&|<>   w []a   a-ss~ftrsa uclr[len range]  [f(x) for x in x]
numpy.[where append abs square sqrt floor transpose reverse sort argsort unique collections.counter]

[$.!]~+-*%&|<>=@?!  #_^, 16+4 10lms
[$.!]~+-*%_ <>=^? &|#!@, 9+11 10lms(10lxy 10gen) !v &v

a x+g fyZey:Rx+:d(vi,:cy)S6Z(ki,:n.by)*(%48)?(n:#@k).ay:Rx
k n:#@k;      x+g(f y)sgm e y:rms x+:d (v[i],:c y)sum h sfm(k[i],:n.b y)*sqrt[h?#x]?n.a y:rms x
p n=len(k[0]);x+g@sgm(f@y,e@y=rms(x+=d@sum(v[i],=c@y,sfm(h,(k[i],=n.b@y)*(n.a@y=rms x)/sqrt(len(x)/h)))))