spreadsheet by tybalt89

#!perl -lp
sub f{s/\pl(\d+)/f($_=$s[$1-1][-65+ord$&]);$_/ge;s/^=(.*)/lc$1/ee}push@s,[split$,=v9,$_,-1]}{print
map&f?0+sprintf'%.2f',$_:$_,@$_ for@s

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page