Skip to main content
added 20 characters in body
Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Red, 9999 95 bytes

func[n][d:[4 3 3 5 4 4 3 5 5 4]s"4335443554"s: 0 repeat i n[print s foreach c form s[s: s - 48 + do d/(1-47 + do form c)]]]

Try it online!Try it online!

Just a straightforward solution.

Red, 99 bytes

func[n][d:[4 3 3 5 4 4 3 5 5 4]s: 0 repeat i n[print s foreach c form s[s: s + d/(1 + do form c)]]]

Try it online!

Just a straightforward solution.

Red, 99 95 bytes

func[n][d:"4335443554"s: 0 repeat i n[print s foreach c form s[s: s - 48 + do d/(-47 + do c)]]]

Try it online!

Just a straightforward solution.

Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Red, 99 bytes

func[n][d:[4 3 3 5 4 4 3 5 5 4]s: 0 repeat i n[print s foreach c form s[s: s + d/(1 + do form c)]]]

Try it online!

Just a straightforward solution.