George

• Jul 29th, 2014

 

In Haskell (please excuse syntax highlighting; they dont have it for this language):

Code
-- feetToInches.hs


module Main where


 


feetToInches :: Num a => a -> a


feetToInches = (*12)


 


main :: IO ()


main = do


  feet <- putStr "Enter number of feet to convert: ""Enter rainfall for " ++ (snd . (!!n)) months ++ ": ") >> getLine) [0..11]


  let values = map (read :: String -> Float) inputs


  let f g = snd . g $ zip values [0..]


 


  mapM_ putStrLn ["Total rainfall: ""Mean rainfall: ""Month with highest rainfall: " ++ snd (months !! (f maximum)),


                  "Month with lowest rainfall: " ++ snd (months !! (f minimum))]


  where months = zip [0..] ["January", "February", "March", "April", "May", "June", "July",


                            "August", "September", "October", "November", "December"]   

Sunil shenoy

• May 16th, 2016

 

Code
#include<iostream>


"Enter a Feet value:""result in Inches: "<<i<<endl;


}