norm v = prod v $ 1.0 / sqrt $ sprod v v   ;

norm v = prod v ( 1.0 / sqrt ( sprod v v ) ) ;

norm :: Vector -> Vector

(r)

import Text.Printf

width = 512 
    
height = 512
    
g = [0x0003C712,
     0x00044814,
     0x00044818,
     0x0003CF94,
     0x00004892,
     0x00004891,
     0x00038710,
     0x00000010,
     0x00000010]

type Vector = (Double, Double, Double)

sum :: Vector -> Vector -> Vector
sum (x1, y1, z1) (x2, y2, z2) = (x1 + x2, y1 + y2, z1 + z2)

prod :: Vector -> Double -> Vector
prod (x, y, z) (r) = (r * x, r * y, r * z)

sprod :: Vector -> Vector -> Double
sprod (x1, y1, z1) (x2, y2, z2) = x1 * x2 + y1 * y2 + z1 * z2

norm :: Vector -> Vector
norm (x, y, z) = prod (x, y, z) ( 1.0 / sqrt( sprod( (x, y, z) (x, y, z) ) ) );

card.hs:38:54: error:
    * Couldn't match expected type `(Double, Double, Double) -> Vector'
                  with actual type `(Double, Double, Double)'
    * The function `(x, y, z)' is applied to one argument,
      but its type `(Double, Double, Double)' has none
      In the first argument of `sprod', namely `((x, y, z) (x, y, z))'
      In the first argument of `sqrt', namely
        `(sprod ((x, y, z) (x, y, z)))'
   |
38 | norm (x, y, z) = prod (x, y, z) ( 1.0 / sqrt( sprod( (x, y, z) (x, y, z) ) ) );
   |                                                      ^^^^^^^^^^^^^^^^^^^

import System.IO
import Text.Printf

--putStr ( "Hello" )
putStrLn ( "Hello "++width)

Prelude> :l card.hs
[1 of 1] Compiling Main             ( card.hs, interpreted )

card.hs:42:1: error:
    Parse error: module header, import declaration
    or top-level declaration expected.
   |
42 | putStrLn ( "Hello "++width)
   | ^^^^^^^^^^^^^^^^^^^^^^^^^^^
Failed, no modules loaded.

import System.IO
import Text.Printf

main = do
 putStr "Enter you name : "
 name <- getLine
 putStr ( "Hello " ++ name )