[VA] SRC#005- April, 1st Mean Minichallenge

[Mike (Austria)]

Addendum: for stack-only purists, here comes a 63.5 bytes two-liner implementation GMS which does the same as above GM in slightly less time:

Code:

« DUP { DUP2 ^ ΣLIST ROT SIZE / SWAP }
  { DROP DUP ΠLIST SWAP SIZE } IFTE XROOT »

Now this looks like a candidate for Wlodek's one minute marvels collection, doesn't it?