thma/LtuPatternFactory
1
1
Fork 0
mirror of https://github.com/thma/LtuPatternFactory.git synced 2024-12-03 03:55:08 +03:00
Code Issues Projects Releases Wiki Activity

working sample for optimization

Browse Source
This commit is contained in:
thma 2019-03-07 21:33:25 +01:00
parent 66130bb96b
commit 8badb76738
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/HigherOrder.hs
View File

@ -2,7 +2,6 @@ module HigherOrder where
import Data.Ord
import Data.List
import GHC.Exts
type Rect = (Double, Double)
@ -41,6 +40,9 @@ totalWidth = foldr ((+) . width) 0
totalLength :: [Rect] -> Double
totalLength = foldr ((+) . len) 0
maxLength :: [Rect] -> Double
maxLength = maximum . map len
rects :: [Rect]
rects = [(100,60),(120,60),(80,40),(120,40)]
@ -53,7 +55,9 @@ arrangeWith weightFun maxWidth rects =
weightFunctions = [len,width,size,weightedLength,weightedWidth]
--arrangeWithAll :: [WeightFunction] -> Double -> [Rect] -> [[Rect]]
arrangeWithAll :: [WeightFunction] -> Double -> [Rect] -> [[Rect]]
arrangeWithAll allFuns maxWidth rects =
let allTrials = map (\f -> arrangeWith f maxWidth rects) allFuns
in map (maximum . map totalLength) allTrials
let allTrials = map (\f -> arrangeWith f maxWidth rects) allFuns
weightedTrials = map (\l -> (l, sum (map maxLength l))) allTrials
sortedTrials = sortOn snd weightedTrials
in fst $ head sortedTrials