Return to Answer

deleted 90 characters in body

Source Link

edited Jul 26, 2020 at 18:32

R, 7979 63 bytes, Robin Ryder's answer

x=pi*pi;cat(apropos("^.$")[c(T,ceilingsum(x,T),ceiling(ceilingsum(x,pi)*pi))],F:x,sep='')

Being allowed to use () let me use apropos to grab the length-one function names, and then just index them to get the appropriate -/+.

x=pi*pi;cat(apropos("^.$")[c(T,ceiling(x),ceiling(ceiling(pi)*pi))],F:x,sep='')

Being allowed to use () let me use apropos to grab the length-one function names, and then just index them to get the appropriate -/+.

x=pi*pi;cat(apropos("^.$")[c(T,sum(x,T),sum(x,pi))],F:x,sep='')

Being allowed to use () let me use apropos to grab the length-one function names, and then just index them to get the appropriate -/+.

Source Link

created Jul 26, 2020 at 15:36

x=pi*pi;cat(apropos("^.$")[c(T,ceiling(x),ceiling(ceiling(pi)*pi))],F:x,sep='')

Being allowed to use () let me use apropos to grab the length-one function names, and then just index them to get the appropriate -/+.