Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

#APL(NARS), 53 chars, 106 bytes

APL(NARS), 53 chars, 106 bytes

r←a f w;c
c×ばつ⍳∼∧/(πr)≤a×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

#APL(NARS), 53 chars, 106 bytes

r←a f w;c
c×ばつ⍳∼∧/(πr)≤a×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

APL(NARS), 53 chars, 106 bytes

r←a f w;c
c×ばつ⍳∼∧/(πr)≤a×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

deleted 4 characters in body

Source Link

edited Mar 17, 2019 at 22:05

user58988

edited Mar 17, 2019 at 22:05

user58988

#APL(NARS), 5753 chars, 114106 bytes

r←a f w;c
c←0⋄r←1
×ばつ⍳∼a{∧×ばつ⍳∼∧/(π⍵πr)×ばつ⍳w≤c+←1≤a×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

#APL(NARS), 57 chars, 114 bytes

r←a f w;c
c←0⋄r←1
×ばつ⍳∼a{∧/(π⍵)×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

#APL(NARS), 53 chars, 106 bytes

r←a f w;c
c←0⋄r←1
×ばつ⍳∼∧/(πr)≤a×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416

Source Link

answered Mar 17, 2019 at 21:34

user58988

answered Mar 17, 2019 at 21:34

user58988

#APL(NARS), 57 chars, 114 bytes

r←a f w;c
c×ばつ⍳∼a{∧/(π⍵)×ばつ⍳w≤c+←1
r+←1⋄→2

test:

 1 f ̈1..20
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 
 2 f ̈1..20
1 4 8 9 12 16 18 24 25 27 30 32 36 40 45 48 49 50 54 56 
 3 f ̈1..20
1 8 16 27 32 36 48 54 64 72 81 96 108 125 128 135 144 150 160 162 
 4 f ̈1..20
1 16 32 64 81 96 108 128 144 162 192 216 243 256 288 324 384 432 486 512 
 10 f ̈1..20
1 1024 2048 4096 8192 16384 32768 59049 62208 65536 69984 73728 78732 82944 93312 98304 104976 110592 118098 124416