Can anyone beat this wc? solarpunk.systems/#k-notes

@chrispsn i got a very different timing for the original wc - only 8.3s instead of 28s, and for k7 (the latest) i got 4.7s instead of 4s

hm... with ngn/k i get 2.979s for \t:100 ."\\wc big.txt"

unfortunately i can't run the same k function as it uses in, but mine would probably be slower there

slightly lower timing for wc - 2.928s if i eliminate the shell overhead by using my custom way to fork: \t:100 `x(("/usr/bin/wc";"big.txt");"")

@ngn probably my vm acting up re: native wc timing - yours is in line (magnitude) with attila's

@chrispsn i think i have a better version (in k7) than wcfast

f:{x:" \n\t\r"?x;(+/x=1;+/0>':x<4;#x)}

4705ms vs 4250ms on my laptop

3801ms - f:{x:" \n\t\r"?x;(+/x=1;+/<':x=4;#x)}

golfed :) f:+/'(1=;<':4=;#:)@\:" \n\t\r"?

@ngn nice!!!

What makes it faster in your view? Working with ints is faster than working with chars?

whenever x=4 it is not one of " \n\t\r"

is there a case where +/<':x=4 is different from +/~x=4 ?

there must be

two spaces for instance. got it