•ktye/k src online: repl intro apl360 pdp11 db halfkey xk fem flow cmline: kx(awk-like) kcsv uikweb: about tokenize compile •the k incunabulum •zoo of array languages APL\360 ngn/apl APL\iv BQN KAP incunabulum APL\? j4.2 jstack oK ktye/k2 ktye/k.w klong ngn/k k7 k9 ktye/k lil •j stack language •edit a/c
ktye/k ktye.github.io/kdoc.htm + flp add ' ech both bin lin - neg sub / ovr/fix echright * fst mul \ scn/fix eachleft % sqr div / join decode ! til key mod \ split encode & wer min $[a;b;...] cond | rev max while[c;a;b;d;e;..] < asc les f:{x+y} [bl;o;ck] > dsc mor "abc" c = grp eql 01234567 1 2 3 i ~ not mtc :+-*%&| 4 5 6. f , enl cat <>=~!,^# 2a300 z ^ srt cut _$?@. (1;2 3) L # cnt tak `a`b!5 6 D _ flr drp t,d t,t t,'t join $ str cst k!t key ? unq fnd in k?t group @ typ atx @[x;i;+;y] amend . val cal .[x;i;+;y] dmend abs sin cos exp log find angle imag conj types:cisfzLDTvcdlx ?n(uniform) ?-n(normal) ?z(bi) n?n(with) random -n?n(w/o)• jtye/k: k in fifty functions
+ type add ' each prior bin `js` - neg sub / over right join dec * sqr mul \ scan left split enc % sqrt div inv idiv mod & flip min atom | rev max atomic < up less curry > down more rec = freq eql ~ not match . value parse ! til dict token key where @ first at amend ? uniq find rand ^ sort cut while()[;;] # count take if()[;;;;;] _ floor drop do[]while() , list cat for(;;)[;;] $ string try[]catch(e)[]