in reply to Re: Count and print in perl
in thread Count and print in perl
print pack 'C*', map 0 + $_, split /\s+/, <DATA>; __DATA__ 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 +1 3 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 4 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 + 1 0 5 1 1 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 6 1 1 0 0 0 0 0 1 1 0 0 0 1 +0 0 0 1 7 1 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 8 1 1 0 0 0 0 0 1 1 0 0 0 + 1 0 0 0 1 9 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 10 1 1 0 0 0 0 0 1 1 0 + 0 0 1 0 0 0 1 11 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 12 1 1 0 0 0 0 0 +1 1 0 0 0 1 0 0 0 1 13 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 0 0
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Count and print in perl
by johngg (Canon) on Apr 17, 2017 at 21:51 UTC | |
by kanikas16 (Initiate) on Apr 18, 2017 at 10:36 UTC | |
by johngg (Canon) on Apr 18, 2017 at 12:55 UTC | |
by Anonymous Monk on Apr 18, 2017 at 17:07 UTC |