Following is the implementation of rotate function Orig:
k){$[0h>@y;'`rank;98h<@y;'`type;#y;,/|(0;mod[x;#y])_y;y]} Working by
making slight changes in q {$[0h>(@)y;'`rank;$[ 98h<(@)y;'`type; [
(#)y;(,/)(|)(0;mod[x;(#)y])_y;y ] ] ] } How is the strike...