Skip to content

Instantly share code, notes, and snippets.

@ichirin2501

ichirin2501/PE22.pl

Created August 13, 2012 15:59
Show Gist options
  • Save ichirin2501/3342185 to your computer and use it in GitHub Desktop.
Save ichirin2501/3342185 to your computer and use it in GitHub Desktop.
Download ZIP
Project Euler 22
Raw
PE22.pl
#!perl -apnF','
$c++,s/[^"]/$s+=(ord($&)-64)*$c/eg for sort@F;
$_=$s;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment