dj_perl
#!perl chomp and print join ',', grep $_, (map length, split /[a,]/), "\n" while <DATA>; __END__ a bug trapped inside a paper lantern, arid aflutter, ablaze
Recent submissions
All submissions and comments on Hacker News.
#!perl chomp and print join ',', grep $_, (map length, split /[a,]/), "\n" while <DATA>; __END__ a bug trapped inside a paper lantern, arid aflutter, ablaze
All submissions and comments on Hacker News.