11 lines
147 B
Text
11 lines
147 B
Text
|
export {
|
|||
|
|
let complex-magnitude = λ{
|
|||
|
|
{ re: ℝ, im: ℝ }
|
|||
|
|
: ℂ
|
|||
|
|
~ Cartesian
|
|||
|
|
~ <Vec2 ℝ ~ machine.Float64>
|
|||
|
|
} -> ℝ ↦ {
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
}
|