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.Individual
import HushGP.GP.PushArgs import HushGP.GP.PushArgs
import HushGP.GP.PushData import HushGP.GP.PushData
import HushGP.GP.Variation
import HushGP.GP.Selection import HushGP.GP.Selection
import HushGP.GP.Simplification import HushGP.GP.Simplification
import HushGP.GP.Variation
import HushGP.Genome import HushGP.Genome
import System.Random import System.Random
import System.Random.Shuffle 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 newPlushy <- deleteRandomAmt randAmt plushy
let newPlushyErrors = eFunc pushArgs tData newPlushy let newPlushyErrors = eFunc pushArgs tData newPlushy
let isBetter = newPlushyErrors <= initialErrors 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) autoSimplifyPlushy' pushArgs initialErrors (succ step) (if isBetter then newPlushy else plushy)
| otherwise = do | otherwise = do
when simpVerbose (print ("simplification end plushy length: " <> show (length plushy))) when simpVerbose (print ("simplification end plushy length: " <> show (length plushy)))