http://www.perlmonks.org?node_id=315894


in reply to Sierpinskij (Re: Binomial Expansion)
in thread Binomial Expansion

i found that code some times ago, unfortunately i don't know the author. i post here, maybe someone don't know.
#!/usr/bin/perl -l s--@{[(gE^Ge)=~/[^g^e]/g]}[g^e]x((!!+~~g^e^g^e)<<pop).!gE-ge, s-[^ge^ge]-s,,,,s,@{[(g^';').(e^'?')]},(G^'/').(E^'|')^Ge,ge, print,s,(?<=/[^g^e])[^g^e][^g^e],$&^(G^'/').(E^'|')^gE,ge-ge