#APL NARS, 38 bytes, 18 chars
APL NARS, 38 bytes, 18 chars
{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; note that the question want (11π⍵)-⍵ and in APLsm
-⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵
the test
t←{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
t 284 220⋄t 52 100⋄t 10744 10856 ⋄t 174292 2345
1
0
1
0
t 100 117⋄t 6 11⋄t 495 495⋄t 6 6
0
0
0
0
#APL NARS, 38 bytes, 18 chars
{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; note that the question want (11π⍵)-⍵ and in APLsm
-⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵
the test
t←{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
t 284 220⋄t 52 100⋄t 10744 10856 ⋄t 174292 2345
1
0
1
0
t 100 117⋄t 6 11⋄t 495 495⋄t 6 6
0
0
0
0
APL NARS, 38 bytes, 18 chars
{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; note that the question want (11π⍵)-⍵ and in APLsm
-⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵
the test
t←{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
t 284 220⋄t 52 100⋄t 10744 10856 ⋄t 174292 2345
1
0
1
0
t 100 117⋄t 6 11⋄t 495 495⋄t 6 6
0
0
0
0
#APL NARS, 38 bytes 46, 2218 chars
{∧≠/(t=⍵∧∧/⍵=⌽-⍵-11π⍵),⍵≠t←⌽⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; Note note that the question want (11π⍵)-⍵ and in APLsm
(11π⍵)-⍵=⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵-11π⍵ follow APLsm precedence
Thethe test:
z←t←{∧≠/(t=⍵∧∧/⍵=⌽-⍵-11π⍵),⍵≠t←⌽⍵}
zt 284 220⋄z220⋄t 52 100⋄z100⋄t 10744 10856 ⋄z⋄t 174292 2345
1
0
1
0
zt 100 117⋄z117⋄t 6 11⋄z11⋄t 495 495⋄z495⋄t 6 6
0
0
0
0
#APL NARS, bytes 46, 22 chars
{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; Note the question want (11π⍵)-⍵
(11π⍵)-⍵=-(⍵-11π⍵)=-⍵-11π⍵ follow APLsm precedence
The test:
z←{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
z 284 220⋄z 52 100⋄z 10744 10856 ⋄z 174292 2345
1
0
1
0
z 100 117⋄z 6 11⋄z 495 495⋄z 6 6
0
0
0
0
#APL NARS, 38 bytes, 18 chars
{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; note that the question want (11π⍵)-⍵ and in APLsm
-⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵
the test
t←{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
t 284 220⋄t 52 100⋄t 10744 10856 ⋄t 174292 2345
1
0
1
0
t 100 117⋄t 6 11⋄t 495 495⋄t 6 6
0
0
0
0
#APL NARS, bytes 46, 22 chars
{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; the Note the question want (11π⍵)-⍵
(11π⍵)-⍵=-(⍵-11π⍵)=-⍵-11π⍵ follow APLsm precedence
The test:
z←{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
z 284 220⋄z 52 100⋄z 10744 10856 ⋄z 174292 2345
1
0
1
0
z 100 117⋄z 6 11⋄z 495 495⋄z 6 6
0
0
0
0
#APL NARS, bytes 46, 22 chars
{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; the test
z←{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
z 284 220⋄z 52 100⋄z 10744 10856 ⋄z 174292 2345
1
0
1
0
z 100 117⋄z 6 11⋄z 495 495⋄z 6 6
0
0
0
0
#APL NARS, bytes 46, 22 chars
{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
11π⍵ find the sum of divisors of ⍵ in 1..⍵; Note the question want (11π⍵)-⍵
(11π⍵)-⍵=-(⍵-11π⍵)=-⍵-11π⍵ follow APLsm precedence
The test:
z←{∧/(t=-⍵-11π⍵),⍵≠t←⌽⍵}
z 284 220⋄z 52 100⋄z 10744 10856 ⋄z 174292 2345
1
0
1
0
z 100 117⋄z 6 11⋄z 495 495⋄z 6 6
0
0
0
0