mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 10:33:59 -05:00
14 lines
227 B
Plaintext
14 lines
227 B
Plaintext
module example
|
|
|
|
import StdEnv
|
|
|
|
maxArray :: [Real] [Real] -> [Real]
|
|
maxArray list1 list2
|
|
= [ (max e1 e2)
|
|
\\ e1 <- list1
|
|
& e2 <- list2
|
|
]
|
|
|
|
Start :: [Real]
|
|
Start = maxArray [1.3,4.1,6.6,2.3,3.5] [2.1,3.3,88.9,-5.0,3.56]
|