Skip to main content
deleted 33 characters in body
Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57

Mathematica, 52 4848 42 bytes

1-Sum[#~Binomial~k#0@k/(#-k+1),{k,0,#-1}]Sign@#&]&

Unnamed function that uses the literal definition, with some trickery to account for 0.

Mathematica, 52 48 bytes

1-Sum[#~Binomial~k#0@k/(#-k+1),{k,0,#-1}]Sign@#&

Unnamed function that uses the literal definition, with some trickery to account for 0.

Mathematica, 52 48 42 bytes

1-Sum[#~Binomial~k#0@k/(#-k+1),{k,0,#-1}]&

Unnamed function that uses the literal definition.

Source Link
LegionMammal978
  • 18k
  • 4
  • 25
  • 57

Mathematica, 52 48 bytes

1-Sum[#~Binomial~k#0@k/(#-k+1),{k,0,#-1}]Sign@#&

Unnamed function that uses the literal definition, with some trickery to account for 0.