-- Nine.hs - The Quantum Interference Pattern [0..9]
module Nine where
h9 :: Int -> Int
h9 x = let xf = fromIntegral x
           wave1 = sin (xf * 0.1)
           wave2 = sin (xf * 0.1 * 1.618)  -- golden ratio
           interference = wave1 + wave2
           quantized = round (interference * 4.5 + 4.5)
       in quantized `mod` 10