copy

Another variant: f:#1_{*{x}#(-:\+/10\x)!'x}\

27 bytes: f:#1_{*((-:\+/10\x)!'x)^0}\

A tad shorter: z@*>f'z

It's mentioned in the repl help: codeberg.org/ngn/k/src/branch/master/repl.k

(a;b;c):1 2 3

Happy to help!

No idea, sorry

You could steal ok's prm from github.com/JohnEarnest/ok/blob/…

Consider it disregarded

This might be helpful: codegolf.stackexchange.com/a/231590/3428

apply, but @coltim's fold works too

(*/:).!'2# there might be something shorter

@dzaima I use entr with a bit of vimscript that saves the buffer on any change, with two terminals side by side

Also works in ngn/k

n m/y is for (github.com/JohnEarnest/ok/blob/gh-pages/docs/Manual.md#over), so y times multiply 1 with x

Or */y#x (shorter but doesn't work for array inputs)

y(x*)/1

@ngn Is k32 not supported anymore? It seems to exit with oom on startup

s:{(,x)!0N}'!pr      / hashtable: positions -> score
H:5/
g:{(s@pr!h)@h:H@x}   / get
p:{s[pr!h;h:H@x]:y;} / put

Turned out to be quite beautiful (and slightly faster) in the end:

Initialising like this works too: s:{(,x)!x}'!10

Actually, s[0]:s[0],(,3)!4 works

Expected 0N 3!0 4

s:10#,((,0N)!0)
s[0],:(,3)!4
s[0]
0N 3!(0 0N;0N 4)

Is this related?

Right

I have tests, I don't mind ;-)

That works for me

I see, interesting

What's actually happening in #{(!0)!!0}'100#0? Is # looking into the array or is ' doing something?

pr:1000003               / prime
s:pr#,()                 / hashtable: positions -> score
h:5/                     / hash
g:{*|*(*'h=)#s@pr!h:h@x} / get
p:{s[pr!h]:(,h,y),s[pr!h:h@x];} / put

So is there no way to make an array of dicts at the moment? Trying to improve a hashtable implementation:

Same thing happens with 100#,((!0)!0)

1 1 1 2 2 {fr[x].y}/((1;3);(2;4))

Turns out 1=#? is shorter anyway, duh

Good point

Ah, right

Yes, like &': (at least in ok: github.com/JohnEarnest/ok/blob/gh-pages/docs/…)

I was thinking something like this (unless you know a shorter idiom): ngn.codeberg.page/k/#eJxT01eIsVW3MjRQNgAADQQCJA==

Would it make sense for =': to be given the first item as the initial value as a special case? Would be useful for checking if all elements are the same

Does ngn/k not have 5: any more? (I got w:{"/dev/stdout"0:`k@x} for now)

@Bubbler I believe that's incorrect for f[9;"DyalogAPL"]

(I changed DyalogAPL to ngn/k and didn't notice the order requirement)

@xpqz Fixed, thanks: {(x#y;x_y)1 0=x<0} (@coltim's solution is two bytes shorter)

@chrispsn Thanks, appreciated

@coltim Nice one, < and > are useful on booleans which I hadn't considered

@coltim Indeed, fixed

Yeah

I did some of the recent tryapl problems. Pretty happy about the results, but suggestions are welcome: copy.sh/k/tryapl/2020.k