Activity for jhnc‭

Type	On...	Excerpt	Status	Date
Edit	Post #295569	Initial revision	—	7 months ago
Answer	—	A: Lone ones awk, 35 bytes Takes input as newline-separated list of binary strings. ``` awk '{gsub(/11+\|0+/,);$0=length}1' ``` strip all runs of 0s and two or more 1s print length of remaining string (more)	—	7 months ago
Comment	Post #295550	`11111111111111111111111111111110` and `01111111111111111111111111111111` output 1 but should output 0 fix: `sed 's/./&\n/g'\|uniq -c\|grep -c ' 1 1'`= 38 bytes (more)	—	7 months ago
Edit	Post #295568	Initial revision	—	7 months ago
Answer	—	A: Lone ones Perl, 28 bytes Takes input as newline-separated list of binary strings. ```perl perl -ple's/11+//g;$=y/1//' ``` `-p` - assign each line of input to `$`, manipulate, then print `-l` - strip trailing newline from input, add back to output `-e` - program follows `s/11+//g` - stri... (more)	—	7 months ago
Comment	Post #295550	perhaps I don't understand the rules but ` /dev/stdin` seems a nop and `'1 1'` can be `1\ 1` (more)	—	7 months ago