Question: What is the problem with this quiz?

The following quiz doesn't react in the rigth way, when the respond is a fraction with nominator 1. When the fraction 4/20 is the answer, the respond 1/5 is incorrect

Grading:-Quiz("Reduce this fraction",
proc (Resp, Ans) evalb([op(InertForm:-Value(Ans))] = [op(Resp)]) end proc,
proc () local a, b, c; a := rand(1 .. 5); b := rand(1 .. 5); c := rand(2 .. 5)( ); `%/`(a( )*c, b( )*c) end proc, 
'inertform' = true)

Any proposals?

Please Wait...