Commit 3da6c432 authored by sof's avatar sof
Browse files

[project @ 1997-11-23 15:34:53 by sof]

Aux.hs
parent 95b855f8
{--------------------------------------------------------------- {---------------------------------------------------------------
-- --
-- Aux.hs : contains supporting function defination for the system. -- Auxil.hs : contains supporting function defination for the system.
-- T.Yu@cs.ucl.ac.uk September 25, 1997 -- T.Yu@cs.ucl.ac.uk September 25, 1997
-- --
--------------------------------------------------------------} --------------------------------------------------------------}
module Aux where module Auxil where
import Local(args,retType,testData,myName,expectResults,maxScore,evalFitness,printFitness) import Local(args,retType,testData,myName,expectResults,maxScore,evalFitness,printFitness)
import Header(TypeExp(..),ParseTree(..),Expression(..),Population(..)) import Header(TypeExp(..),ParseTree(..),Expression(..),Population(..))
import Create(createTree,extract) import Create(createTree,extract)
......
...@@ -10,7 +10,7 @@ import Header (Expression(..),TypeExp(..),ExpressionList(..)) ...@@ -10,7 +10,7 @@ import Header (Expression(..),TypeExp(..),ExpressionList(..))
import Array(Array, array) import Array(Array, array)
import Char(ord) import Char(ord)
--import Eval(atoi) --import Eval(atoi)
--import Aux(indexL) --import Auxil(indexL)
-- termEnv ----------------------------------------------------------------------------------- -- termEnv -----------------------------------------------------------------------------------
-- This is the terminal set for Map program -- This is the terminal set for Map program
......
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
module Main where module Main where
import Header(Expression(..),TypeExp(..)) import Header(Expression(..),TypeExp(..))
import Aux (getParas, create, evolve, displayPop) import Auxil (getParas, create, evolve, displayPop)
import System (getArgs) import System (getArgs)
import Random (randomInts,randomDoubles) import Random (randomInts,randomDoubles)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment