Luke
- 4.9k
- 17
- 23
Japt, 8(削除) 8 (削除ここまで) 6 bytes
ol aU ¦Jx\U
This outputs 0 for false and 1 for true.
Explanation
ol x\ U
Uol x==U
Uo # Create the range [0 ... input]
l # Replace each element by its factorial
==U # Compare each element to the input (yielding 1 if equal and 0 otherwise)
x # And sum the result
Japt, (削除) 8 (削除ここまで) 6 bytes
ol x\U
This outputs 0 for false and 1 for true.
Explanation
ol x\ U
Uol x==U
Uo # Create the range [0 ... input]
l # Replace each element by its factorial
==U # Compare each element to the input (yielding 1 if equal and 0 otherwise)
x # And sum the result