昨日使ったモジュールで体積を表示する的なことをした #CodePiece

CodePiece.hs

import qualified Geometry.Sphere as Sphere
import qualified Geometry.Cuboid as Cuboid
import qualified Geometry.Cube as Cube

printSphere :: Float -> String
printSphere value = show $ Sphere.volume value

printCuboid :: Float -> Float -> Float -> String
printCuboid a b c = show $ Cuboid.volume a b c

printCube :: Float -> String
printCube side = show $ Cube.volume side