Timeline for Deranged !Combinatorics: Compute the Subfactorial
Current License: CC BY-SA 3.0
4 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Mar 26, 2017 at 19:48 | comment | added | Greg Martin | Another at the same byte count: Round[#!/E]+1-Sign@#&. Annoying initial values...! | |
| Mar 26, 2017 at 18:23 | comment | added | Dennis | The first one works well (I think I know what it does), but Mathics doesn't appear to support ± in the second one. It would work with f, but at the cost of two bytes. | |
| Mar 26, 2017 at 18:09 | comment | added | Martin Ender | Two alternatives at the same byte count: Round[(#/. 0->2)!/E]& and ±0=1;±n_:=Round[n!/E] (although I don't know whether Mathics supports single-byte encodings for source files like Mathematica does). | |
| Mar 26, 2017 at 18:00 | history | answered | Dennis | CC BY-SA 3.0 |