Skip to main content
deleted 1 character in body
Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Red, 4139 bytes

func[ø][afunc[s][n: 0 foreach ¼c ø[as[n: an + ¼]a];c]n];ƈ

Try it online!Try it online!

2 x 1729

Red, 41 bytes

func[ø][a: 0 foreach ¼ ø[a: a + ¼]a];

Try it online!

2 x 1729

Red, 39 bytes

func[s][n: 0 foreach c s[n: n + c]n];ƈ

Try it online!

2 x 1729

deleted 2 characters in body
Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Red, 4241 bytes

f: func[U][ofunc[ø][a: 0 foreach d¼ U[oø[a: adda o+ d]o];¼]a];

Try it online!Try it online!

2 x 1729

Red, 42 bytes

f: func[U][o: 0 foreach d U[o: add o d]o];

Try it online!

2 x 1729

Red, 41 bytes

func[ø][a: 0 foreach ¼ ø[a: a + ¼]a];

Try it online!

2 x 1729

deleted 4 characters in body
Source Link
Galen Ivanov
  • 21.2k
  • 3
  • 24
  • 61

Red, 42 bytes

f: func[U][o: 0 foreach d U[o: add o d]o];

Try it online!Try it online!

2 x 1729

Red, 42 bytes

f: func[U][o: 0 foreach d U[o: add o d]o];

Try it online!

2 x 1729

Red, 42 bytes

f: func[U][o: 0 foreach d U[o: add o d]o];

Try it online!

2 x 1729

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