RosettaCodeData/Task/Amb/VBScript/amb-1.vbs
2026-04-30 12:34:36 -04:00

11 lines
168 B
Text

class ambiguous
dim sRule
public property let rule( x )
sRule = x
end property
public default function amb(p1, p2)
amb = eval(sRule)
end function
end class