The original code (~7.2s on my laptop).
import System.Random
import System.CPUTime
rainfall :: [Int] -> Int
rainfall xs = sum (zipWith (-) mins xs)
The original code (~7.2s on my laptop).
import System.Random
import System.CPUTime
rainfall :: [Int] -> Int
rainfall xs = sum (zipWith (-) mins xs)
[[local|localrc]] | |
# Abide by tradition. | |
SERVICE_TOKEN=ADMIN | |
ADMIN_PASSWORD=secrete | |
MYSQL_PASSWORD=$ADMIN_PASSWORD | |
RABBIT_PASSWORD=$ADMIN_PASSWORD | |
SERVICE_PASSWORD=$ADMIN_PASSWORD | |
LOGFILE=$DEST/logs/stack.sh.log | |
LOGDAYS=2 |