Skip to main content
Code Golf

Return to Answer

Bounty Awarded with 150 reputation awarded by Bubbler
added 139 characters in body
Source Link
user
user
  • 457
  • 2
  • 21
  • 71

Factor + math.factorials, 4141 32 bytes

Saved 9 bytes thanks to @Bubbler!

[| x | 0 [ 1 + dup factorial[1,b] x[ <n! = ] loopwith find ]

Try it online!Try it online!

Factor, 5050 34 bytes

Saved 16 bytes thanks to @Bubbler!

[| x | 0 1 [ swap 1 +over dup[1,b] rot[ * dup x2dup <= ] loop .find ]

Try it online!Try it online!

There's probably a better idiom for this, but I can't find it right now.

Factor + math.factorials, 41 bytes

[| x | 0 [ 1 + dup factorial x < ] loop ]

Try it online!

Factor, 50 bytes

[| x | 0 1 [ swap 1 + dup rot * dup x < ] loop . ]

Try it online!

There's probably a better idiom for this, but I can't find it right now.

Factor + math.factorials, 41 32 bytes

Saved 9 bytes thanks to @Bubbler!

[ dup [1,b] [ n! = ] with find ]

Try it online!

Factor, 50 34 bytes

Saved 16 bytes thanks to @Bubbler!

[ 1 over [1,b] [ * 2dup = ] find ]

Try it online!

There's probably a better idiom for this, but I can't find it right now.

Source Link
user
user
  • 457
  • 2
  • 21
  • 71

Factor + math.factorials, 41 bytes

[| x | 0 [ 1 + dup factorial x < ] loop ]

Try it online!

Factor, 50 bytes

[| x | 0 1 [ swap 1 + dup rot * dup x < ] loop . ]

Try it online!

There's probably a better idiom for this, but I can't find it right now.