Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl ; bmi calculator (define bmi (case-lambda ((feet inches pounds) (let ((height (+ (* feet 12) inches))) (* (/ pounds (* height height)) 703.0))) ((centimeters kilograms) (let ((meters (/ centimeters 100.0))) (/ kilograms (* meters meters)))))) (define (bmi-class bmi) (cond ((<= bmi 18.5) "underweight") ((< bmi 25) "normal") ((< bmi 30) "overweight") ((< bmi 40) "obese") (else "morbidly obese"))) (display (bmi 5 4 125)) (display " ") (display (bmi-class (bmi 5 4 125))) (newline) (display (bmi 190 95)) (display " ") (display (bmi-class (bmi 190 95))) (newline) Private [?] Run code Submit