}
printf "f(f(%s))=%s\n", $_, f(f($_)) for 1.25, -1.25, 0, 2**100;
f(f(1.25))=-1.25 f(f(-1.25))=1.25 f(f(0))=0 f(f(1.26765060022823e+30))=-1.26765060022823e+30 https://PerlBanjo.com/6334f14ccd
Обсуждают сегодня