Bezier Curve by tails

sub f{($_**3*$_[6]+3*$_*$u*($_*$_[4]+$u*$_[2])+$u**3*"@_")/1e3}@a=<>;$u=10-$_,printf"%d %d
",f(@a),f@a[1..7]for 0..10

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

download

return to the top page