-- pow.hs: conjuring exponentiation
--
-- Copyright (C) 2021-2025 Rudy Matela
-- Distributed under the 3-Clause BSD licence (see the file LICENSE).
import Conjure

pow :: Int -> Int -> Int
pow 2 0  =  1
pow 2 1  =  2
pow 2 2  =  4
pow 2 3  =  8
pow 3 2  =  9

main :: IO ()
main  =  do
  -- pow x 0  =  1
  -- pow x y  =  x * pow x (y - 1)
  conjure "pow" pow
    [ unfun (0::Int)
    , unfun (1::Int)
    , fun "*" ((*) :: Int -> Int -> Int)
    , fun "-" ((-) :: Int -> Int -> Int)
    ]

  -- pow b 0  =  1
  -- pow b e  =  pow b (halve e) * pow b (halve e) * if odd e then b else 1
  --             2   3  4     5  6 7   8  9    10 11 12 13 14     15     16
  -- out of reach performance wise, OOM at size 9
  conjure "pow" pow
    [ unfun (0::Int)
    , unfun (1::Int)
--  , fun "sq" ((\x -> x*x) :: Int -> Int) -- cheat! OOM still
    , fun "*" ((*) :: Int -> Int -> Int)
    , fun "halve" ((`div` 2) :: Int -> Int)
    , iif (undefined :: Int)
    , maxSize 6 -- OOM at size 9
    ]