Skip to content

Instantly share code, notes, and snippets.

@atomicstack

atomicstack/perl_spark

Created December 1, 2015 12:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save atomicstack/915d68ea35a28b3baa91 to your computer and use it in GitHub Desktop.
Save atomicstack/915d68ea35a28b3baa91 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
perl_spark
# https://twitter.com/OvidPerl/status/137172488206553090
perl -e '@t=qw(▁ ▂ ▃ ▄ ▅ ▆ ▇ █);@s=sort{$a<=>$b}@ARGV;$d=($s[-1]-$s[0])/@t;$d*=1.01;for(@ARGV){print $t[($_-$s[0])/$d]}'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment