πΌππππ, 17 chars / 34 bytes
Γ―Δβ/β0β’βΓ«(Γ―Δ$)βëï
#πΌππππ, 17 chars / 34 bytes Γ―Δβ/β0β’βΓ«(Γ―Δ$)βëï Try it here (Firefox only). #Explanation Γ―Δβ/β0β’βΓ«(Γ―Δ$)βëï // implicit: Γ― = input fraction Γ―Δβ/β0 // get the numerator... β’ // split it... β // and check if any of its items satisfy the condition: Γ«(Γ―Δ$) // When the item is removed from Γ―, βëï // does its fractional value still equal the original fractional value? // implicit output
Explanation
Γ―Δβ/β0β’βΓ«(Γ―Δ$)βëï // implicit: Γ― = input fraction
Γ―Δβ/β0 // get the numerator...
β’ // split it...
β // and check if any of its items satisfy the condition:
Γ«(Γ―Δ$) // When the item is removed from Γ―,
βëï // does its fractional value still equal the original fractional value?
// implicit output