นี่ไม่ใช่หนึ่งในโปรแกรมใหญ่ แต่ละบรรทัดเป็นโปรแกรมทางเลือกที่แยกจากกันเพื่อจัดการกับการตรวจสอบเฉพาะ
ÑPQ
ÒgΘ
ÒQP
ÕαΘ
fQO
fs¢
f`Q
-2 ไบต์ขอบคุณที่สกปรก
ช่องว่างระหว่างบรรทัดนั้นไม่มีตัวเลือกใน 05AB1E และเนื่องจากฉันใช้คำสั่ง 1 ไบต์เท่านั้นจึงใช้งานได้ดีหลังจากการแปลง
เอาท์พุท1/0สำหรับความจริง / เท็จตามลำดับ
ลองคนแรกออนไลน์หรือตรวจสอบกรณีทดสอบบางมากขึ้นสำหรับพวกเขาทั้งหมด (กับ builtin EVAL.V )
ย้าย: ลองคนแรกออนไลน์
คำอธิบาย:
Ñ # 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)
หมายเหตุ: หากมีเพียงค่าความจริง / เท็จเท่านั้นที่ถูกต้องและไม่จำเป็นต้องมีความแตกต่างอย่างใดอย่างหนึ่งÒgหรือÕαสามารถใช้เป็น 2 ไบต์ที่ถูกต้องเนื่องจาก1เป็นจริงใน 05AB1E และทุกอย่างอื่นเป็นเท็จ: ลองทั้งสองอย่าง พวกเขาสำหรับบางกรณีทดสอบพวกเขาสำหรับกรณีทดสอบบางอย่าง
หากได้รับอนุญาต builtins เดียวpจะมีพอเพียง: ลองออนไลน์หรือตรวจสอบกรณีทดสอบบางมากขึ้น