rowan.a.tl/HushGP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debugging/formatting

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-03-06 03:07:20 -06:00
parent 72c339e8b0
commit 2d7873d72c
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HushGP/GP.hs
View File

@ -8,9 +8,9 @@ import HushGP.GP.Downsample
import HushGP.GP.Individual
import HushGP.GP.PushArgs
import HushGP.GP.PushData
import HushGP.GP.Variation
import HushGP.GP.Selection
import HushGP.GP.Simplification
import HushGP.GP.Variation
import HushGP.Genome
import System.Random
import System.Random.Shuffle

8
src/HushGP/GP/Simplification.hs
View File

@ -43,14 +43,6 @@ autoSimplifyPlushy' pushArgs@PushArgs{simplificationVerbose = simpVerbose, simpl
newPlushy <- deleteRandomAmt randAmt plushy
let newPlushyErrors = eFunc pushArgs tData newPlushy
let isBetter = newPlushyErrors <= initialErrors
print "-----------------------------------------"
print $ "k: " <> show randAmt
print $ "step: " <> show step
print $ "newPlushy: " <> show newPlushy
print $ "plushy: " <> show plushy
print $ "isBetter: " <> show isBetter
print $ "initialErrors: " <> show initialErrors
print $ "newErrors: " <> show newPlushyErrors
autoSimplifyPlushy' pushArgs initialErrors (succ step) (if isBetter then newPlushy else plushy)
| otherwise = do
when simpVerbose (print ("simplification end plushy length: " <> show (length plushy)))