Bu büyük bir program değil; her bir hat, prime kontrolünü ele almak için ayrı bir alternatif programdır (prime yerleşikini kullanmadan).
ÑPQ
ÒgΘ
ÒQP
ÕαΘ
fQO
fs¢
f`Q
Grimy sayesinde -2 bayt .
05AB1E'de satırlar arasındaki boşluklar op-op değildir ve yalnızca 1 baytlık komutları kullandığım için, bu, transpozisyondan sonra iyi çalışır.
Çıktılar 1/0 sırasıyla doğruluk / falsey için.
İlkini çevrimiçi deneyin veya hepsi için daha fazla test vakası doğrulayın (eval builtin ile .V) .
Aktarılmış: İlkini çevrimiçi deneyin .
Açıklama:
Ñ # Get a list of all divisors of the (implicit) input-integer
# (which would be only 1 and the integer itself for primes)
P # Take the product of that list
Q # And check if it's equal to the (implicit) input-integer
Ò # Get a list of all prime factors of the (implicit) input-integer
g # Get the amount of those prime factors by taking the length of the list
Θ # Check if that's equal to 1 (so only itself is a prime factor)
Ò # Get a list of all prime factors of the (implicit) input-integer including duplicates
Q # Check for each if it's equal to the (implicit) input-integer
# (1 if truthy; 0 if falsey)
P # Take the product of those checks (resulting in either 1 or 0 as well)
Õ # Get the Euler totient of the (implicit) input-integer
α # Take the absolute difference with the (implicit) input-integer
Θ # Check if that's equal to 1
f # Get a list of all prime factors of the (implicit) input-integer without duplicates
Q # Check for each if it's equal to the (implicit) input-integer
O # And take the sum of that (resulting in either 1 or 0)
f # Get a list of all prime factors of the (implicit) input-integer without duplicates
s # Swap to get the (implicit) input-integer
¢ # And count how many time it occurs in the list
f # Get a list of all prime factors of the (implicit) input-integer without duplicates
` # Dump all the content of this list onto the stack
Q # Check if the top two values are equal, or if only a single value is present, it will
# use the (implicit) input-integer as second value
# For all these program the same applies at the end:
# (implicitly output the result with trailing newline)
NOT: Sadece bir truthy / Falsey değeri geçerli olduğunu ve farklı olmak için gerekli vardır değil, ya olursa Ògveya Õαsadece beri geçerli 2-byters olarak kullanılabilir 105AB1E içinde truthy olduğunu ve her şey Falsey geçerli: her ikisini de deneyin bazı test senaryoları için .
Yerleşiklere izin verilmiş polsaydı, tek bir kişi yeterli olurdu: Çevrimiçi deneyin veya daha fazla test vakası doğrulayın .