34 lines
659 B
Text
34 lines
659 B
Text
instance [Mul α] : HMul α (Array α) (Array α) where
|
||
hMul a as := as.map (a * .)
|
||
|
||
#check fun x => x * 2
|
||
#check fun y : Int => let x := 1; x * y
|
||
#check fun y : Int => let_delayed x := 1; x * y
|
||
|
||
def f1 (n : Nat) (i : Int) :=
|
||
i * n
|
||
|
||
def f2 (n : Nat) (i : Int) :=
|
||
n * i
|
||
|
||
def f3 (n : Nat) (i : Int) :=
|
||
n * (n * (n * (n * i)))
|
||
|
||
def f4 (n : Nat) (i : Int) :=
|
||
n + (n + (n * (n * i)))
|
||
|
||
def f5 (n : Nat) (i : Int) :=
|
||
n + (n + (n * (i, i).1))
|
||
|
||
#eval (2:Nat) * #[3, 4, 5]
|
||
|
||
def f6 (n : Nat) (i : Int) :=
|
||
let y := 2 * i
|
||
let x := y * n
|
||
n + x
|
||
|
||
def f7 (n : Nat) (i : Int) :=
|
||
n + (n * 2 * i)
|
||
|
||
def f8 (n : Nat) (i : Int) :=
|
||
n * 2 + (i * 1 * n * 2 * i)
|