Prelude> infixl 6 *+*

<interactive>:10:10: error:
    The fixity signature for `*+*' lacks an accompanying binding

infixl 6 *+*
a *+* b = a^2 + b^2

-- 3 *+* 4

-- 3 (*+*) 4

(*+*) 3 4

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

tut02.hs:8:1: error:
    Parse error: module header, import declaration
    or top-level declaration expected.
  |
8 | (*+*) 3 4
  | ^^^^^^^^^
Failed, no modules loaded.

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

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

card.hs:18:5: error:
    parse error (possibly incorrect indentation or mismatched brackets)
   |
18 |     ]
   |     ^
Failed, no modules loaded.

struct Vector {
	double x, y, z;
}

type Vector = (Double, Double, Double)

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) ) ) );

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 )