// Ġ! LANGUAGE : Ġ+ Pro per I eee 7 5 4 Comp arisons Ċ Ċ fun Ġtest F ( x : ĠAny ) Ġ= ĊĠĠĠ Ġwhen Ġ( x ) Ġ{ ĊĠĠĠĠĠĠĠ Ġ! is ĠFloat Ġ-> Ġ"! Float " ĊĠĠĠĠĠĠĠĠ 0 . 0 F Ġ-> Ġ" 0 . 0 " ĊĠĠĠĠĠĠĠ Ġelse Ġ-> Ġ" other " ĊĠĠĠ Ġ} Ċ Ċ fun Ġtest D ( x : ĠAny ) Ġ= ĊĠĠĠ Ġwhen Ġ( x ) Ġ{ ĊĠĠĠĠĠĠĠ Ġ! is ĠDouble Ġ-> Ġ"! Double " ĊĠĠĠĠĠĠĠĠ 0 . 0 Ġ-> Ġ" 0 . 0 " ĊĠĠĠĠĠĠĠ Ġelse Ġ-> Ġ" other " ĊĠĠĠ Ġ} Ċ Ċ fun Ġbox (): ĠString Ġ{ ĊĠĠĠ Ġval Ġtf Ġ= Ġtest F (- 0 . 0 F ) ĊĠĠĠ Ġif Ġ( tf Ġ!= Ġ" 0 . 0 ") Ġreturn Ġ" Fail Ġ 1 : Ġ$ tf " ĊĊĠĠĠ Ġval Ġtd Ġ= Ġtest D (- 0 . 0 ) ĊĠĠĠ Ġif Ġ( td Ġ!= Ġ" 0 . 0 ") Ġreturn Ġ" Fail Ġ 2 : Ġ$ td " ĊĊĠĠĠ Ġreturn Ġ" OK " Ċ }