|
|
|
|
@ -12,18 +12,6 @@ module HushGP.Instructions
|
|
|
|
|
module HushGP.Instructions.VectorStringInstructions,
|
|
|
|
|
module HushGP.Instructions.VectorBoolInstructions,
|
|
|
|
|
module HushGP.Instructions.VectorCharInstructions,
|
|
|
|
|
allIntInstructions,
|
|
|
|
|
allFloatInstructions,
|
|
|
|
|
allBoolInstructions,
|
|
|
|
|
allCharInstructions,
|
|
|
|
|
allCodeInstructions,
|
|
|
|
|
allExecInstructions,
|
|
|
|
|
allStringInstructions,
|
|
|
|
|
allVectorIntInstructions,
|
|
|
|
|
allVectorFloatInstructions,
|
|
|
|
|
allVectorCharInstructions,
|
|
|
|
|
allVectorStringInstructions,
|
|
|
|
|
allVectorBoolInstructions,
|
|
|
|
|
allInstructions,
|
|
|
|
|
)
|
|
|
|
|
where
|
|
|
|
|
@ -43,643 +31,7 @@ import HushGP.Instructions.VectorIntInstructions
|
|
|
|
|
import HushGP.Instructions.VectorStringInstructions
|
|
|
|
|
import HushGP.State
|
|
|
|
|
|
|
|
|
|
allIntInstructions :: [Gene]
|
|
|
|
|
allIntInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionIntFromFloat, "instructionIntFromFloat"),
|
|
|
|
|
(instructionIntFromBool, "instructionIntFromBool"),
|
|
|
|
|
(instructionIntAdd, "instructionIntAdd"),
|
|
|
|
|
(instructionIntSub, "instructionIntSub"),
|
|
|
|
|
(instructionIntMul, "instructionIntMul"),
|
|
|
|
|
(instructionIntDiv, "instructionIntDiv"),
|
|
|
|
|
(instructionIntMod, "instructionIntMod"),
|
|
|
|
|
(instructionIntMin, "instructionIntMin"),
|
|
|
|
|
(instructionIntMax, "instructionIntMax"),
|
|
|
|
|
(instructionIntInc, "instructionIntInc"),
|
|
|
|
|
(instructionIntDec, "instructionIntDec"),
|
|
|
|
|
(instructionIntLT, "instructionIntLT"),
|
|
|
|
|
(instructionIntGT, "instructionIntGT"),
|
|
|
|
|
(instructionIntLTE, "instructionIntLTE"),
|
|
|
|
|
(instructionIntGTE, "instructionIntGTE"),
|
|
|
|
|
(instructionIntDup, "instructionIntDup"),
|
|
|
|
|
(instructionIntPop, "instructionIntPop"),
|
|
|
|
|
(instructionIntDupN, "instructionIntDupN"),
|
|
|
|
|
(instructionIntSwap, "instructionIntSwap"),
|
|
|
|
|
(instructionIntRot, "instructionIntRot"),
|
|
|
|
|
(instructionIntFlush, "instructionIntFlush"),
|
|
|
|
|
(instructionIntEq, "instructionIntEq"),
|
|
|
|
|
(instructionIntYank, "instructionIntYank"),
|
|
|
|
|
(instructionIntYankDup, "instructionIntYankDup"),
|
|
|
|
|
(instructionIntShove, "instructionIntShove"),
|
|
|
|
|
(instructionIntIsStackEmpty, "instructionIntIsStackEmpty"),
|
|
|
|
|
(instructionIntFromChar, "instructionIntFromChar"),
|
|
|
|
|
(instructionIntFromString, "instructionIntFromString"),
|
|
|
|
|
(instructionIntDupItems, "instructionIntDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allFloatInstructions :: [Gene]
|
|
|
|
|
allFloatInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionFloatFromInt, "instructionFloatFromInt"),
|
|
|
|
|
(instructionFloatFromBool, "instructionFloatFromBool"),
|
|
|
|
|
(instructionFloatAdd, "instructionFloatAdd"),
|
|
|
|
|
(instructionFloatSub, "instructionFloatSub"),
|
|
|
|
|
(instructionFloatMul, "instructionFloatMul"),
|
|
|
|
|
(instructionFloatDiv, "instructionFloatDiv"),
|
|
|
|
|
(instructionFloatMod, "instructionFloatMod"),
|
|
|
|
|
(instructionFloatMin, "instructionFloatMin"),
|
|
|
|
|
(instructionFloatMax, "instructionFloatMax"),
|
|
|
|
|
(instructionFloatInc, "instructionFloatInc"),
|
|
|
|
|
(instructionFloatDec, "instructionFloatDec"),
|
|
|
|
|
(instructionFloatLT, "instructionFloatLT"),
|
|
|
|
|
(instructionFloatGT, "instructionFloatGT"),
|
|
|
|
|
(instructionFloatLTE, "instructionFloatLTE"),
|
|
|
|
|
(instructionFloatGTE, "instructionFloatGTE"),
|
|
|
|
|
(instructionFloatDup, "instructionFloatDup"),
|
|
|
|
|
(instructionFloatPop, "instructionFloatPop"),
|
|
|
|
|
(instructionFloatDupN, "instructionFloatDupN"),
|
|
|
|
|
(instructionFloatSwap, "instructionFloatSwap"),
|
|
|
|
|
(instructionFloatRot, "instructionFloatRot"),
|
|
|
|
|
(instructionFloatFlush, "instructionFloatFlush"),
|
|
|
|
|
(instructionFloatEq, "instructionFloatEq"),
|
|
|
|
|
(instructionFloatYank, "instructionFloatYank"),
|
|
|
|
|
(instructionFloatYankDup, "instructionFloatYankDup"),
|
|
|
|
|
(instructionFloatShove, "instructionFloatShove"),
|
|
|
|
|
(instructionFloatIsStackEmpty, "instructionFloatIsStackEmpty"),
|
|
|
|
|
(instructionFloatFromChar, "instructionFloatFromChar"),
|
|
|
|
|
(instructionFloatFromString, "instructionFloatFromString"),
|
|
|
|
|
(instructionFloatDupItems, "instructionFloatDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allBoolInstructions :: [Gene]
|
|
|
|
|
allBoolInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionBoolFromInt, "instructionBoolFromInt"),
|
|
|
|
|
(instructionBoolFromFloat, "instructionBoolFromFloat"),
|
|
|
|
|
(instructionBoolAnd, "instructionBoolAnd"),
|
|
|
|
|
(instructionBoolInvertFirstThenAnd, "instructionBoolInvertFirstThenAnd"),
|
|
|
|
|
(instructionBoolInvertSecondThenAnd, "instructionBoolInvertSecondThenAnd"),
|
|
|
|
|
(instructionBoolOr, "instructionBoolOr"),
|
|
|
|
|
(instructionBoolXor, "instructionBoolXor"),
|
|
|
|
|
(instructionBoolPop, "instructionBoolPop"),
|
|
|
|
|
(instructionBoolDup, "instructionBoolDup"),
|
|
|
|
|
(instructionBoolDupN, "instructionBoolDupN"),
|
|
|
|
|
(instructionBoolSwap, "instructionBoolSwap"),
|
|
|
|
|
(instructionBoolRot, "instructionBoolRot"),
|
|
|
|
|
(instructionBoolFlush, "instructionBoolFlush"),
|
|
|
|
|
(instructionBoolEq, "instructionBoolEq"),
|
|
|
|
|
(instructionBoolStackDepth, "instructionBoolStackDepth"),
|
|
|
|
|
(instructionBoolYank, "instructionBoolYank"),
|
|
|
|
|
(instructionBoolYankDup, "instructionBoolYankDup"),
|
|
|
|
|
(instructionBoolShove, "instructionBoolShove"),
|
|
|
|
|
(instructionBoolShoveDup, "instructionBoolShoveDup"),
|
|
|
|
|
(instructionBoolIsStackEmpty, "instructionBoolIsStackEmpty"),
|
|
|
|
|
(instructionBoolDupItems, "instructionBoolDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allCharInstructions :: [Gene]
|
|
|
|
|
allCharInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionCharConcat, "instructionCharConcat"),
|
|
|
|
|
(instructionCharFromFirstChar, "instructionCharFromFirstChar"),
|
|
|
|
|
(instructionCharFromLastChar, "instructionCharFromLastChar"),
|
|
|
|
|
(instructionCharFromNthChar, "instructionCharFromNthChar"),
|
|
|
|
|
(instructionCharIsWhitespace, "instructionCharIsWhitespace"),
|
|
|
|
|
(instructionCharIsLetter, "instructionCharIsLetter"),
|
|
|
|
|
(instructionCharIsDigit, "instructionCharIsDigit"),
|
|
|
|
|
(instructionCharFromBool, "instructionCharFromBool"),
|
|
|
|
|
(instructionCharFromAsciiInt, "instructionCharFromAsciiInt"),
|
|
|
|
|
(instructionCharFromAsciiFloat, "instructionCharFromAsciiFloat"),
|
|
|
|
|
(instructionCharsFromString, "instructionCharsFromString"),
|
|
|
|
|
(instructionCharPop, "instructionCharPop"),
|
|
|
|
|
(instructionCharDup, "instructionCharDup"),
|
|
|
|
|
(instructionCharDupN, "instructionCharDupN"),
|
|
|
|
|
(instructionCharSwap, "instructionCharSwap"),
|
|
|
|
|
(instructionCharRot, "instructionCharRot"),
|
|
|
|
|
(instructionCharFlush, "instructionCharFlush"),
|
|
|
|
|
(instructionCharEq, "instructionCharEq"),
|
|
|
|
|
(instructionCharStackDepth, "instructionCharStackDepth"),
|
|
|
|
|
(instructionCharYank, "instructionCharYank"),
|
|
|
|
|
(instructionCharYankDup, "instructionCharYankDup"),
|
|
|
|
|
(instructionCharShove, "instructionCharShove"),
|
|
|
|
|
(instructionCharShoveDup, "instructionCharShoveDup"),
|
|
|
|
|
(instructionCharIsStackEmpty, "instructionCharIsStackEmpty"),
|
|
|
|
|
(instructionCharDupItems, "instructionCharDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allCodeInstructions :: [Gene]
|
|
|
|
|
allCodeInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionCodePop, "instructionCodePop"),
|
|
|
|
|
(instructionCodeIsCodeBlock, "instructionCodeIsCodeBlock"),
|
|
|
|
|
(instructionCodeIsSingular, "instructionCodeIsSingular"),
|
|
|
|
|
(instructionCodeLength, "instructionCodeLength"),
|
|
|
|
|
(instructionCodeFirst, "instructionCodeFirst"),
|
|
|
|
|
(instructionCodeLast, "instructionCodeLast"),
|
|
|
|
|
(instructionCodeTail, "instructionCodeTail"),
|
|
|
|
|
(instructionCodeInit, "instructionCodeInit"),
|
|
|
|
|
(instructionCodeWrap, "instructionCodeWrap"),
|
|
|
|
|
(instructionCodeList, "instructionCodeList"),
|
|
|
|
|
(instructionCodeCombine, "instructionCodeCombine"),
|
|
|
|
|
(instructionCodeDo, "instructionCodeDo"),
|
|
|
|
|
(instructionCodeDoDup, "instructionCodeDoDup"),
|
|
|
|
|
(instructionCodeDoThenPop, "instructionCodeDoThenPop"),
|
|
|
|
|
(instructionCodeDoRange, "instructionCodeDoRange"),
|
|
|
|
|
(instructionCodeDoCount, "instructionCodeDoCount"),
|
|
|
|
|
(instructionCodeDoTimes, "instructionCodeDoTimes"),
|
|
|
|
|
(instructionCodeIf, "instructionCodeIf"),
|
|
|
|
|
(instructionCodeWhen, "instructionCodeWhen"),
|
|
|
|
|
(instructionCodeMember, "instructionCodeMember"),
|
|
|
|
|
(instructionCodeN, "instructionCodeN"),
|
|
|
|
|
(instructionMakeEmptyCodeBlock, "instructionMakeEmptyCodeBlock"),
|
|
|
|
|
(instructionIsEmptyCodeBlock, "instructionIsEmptyCodeBlock"),
|
|
|
|
|
(instructionCodeSize, "instructionCodeSize"),
|
|
|
|
|
(instructionCodeExtract, "instructionCodeExtract"),
|
|
|
|
|
(instructionCodeInsert, "instructionCodeInsert"),
|
|
|
|
|
(instructionCodeFirstPosition, "instructionCodeFirstPosition"),
|
|
|
|
|
(instructionCodeReverse, "instructionCodeReverse"),
|
|
|
|
|
(instructionCodeDup, "instructionCodeDup"),
|
|
|
|
|
(instructionCodeDupN, "instructionCodeDupN"),
|
|
|
|
|
(instructionCodeDup, "instructionCodeDup"),
|
|
|
|
|
(instructionCodeDupN, "instructionCodeDupN"),
|
|
|
|
|
(instructionCodeSwap, "instructionCodeSwap"),
|
|
|
|
|
(instructionCodeRot, "instructionCodeRot"),
|
|
|
|
|
(instructionCodeFlush, "instructionCodeFlush"),
|
|
|
|
|
(instructionCodeEq, "instructionCodeEq"),
|
|
|
|
|
(instructionCodeStackDepth, "instructionCodeStackDepth"),
|
|
|
|
|
(instructionCodeYank, "instructionCodeYank"),
|
|
|
|
|
(instructionCodeYankDup, "instructionCodeYankDup"),
|
|
|
|
|
(instructionCodeShove, "instructionCodeShove"),
|
|
|
|
|
(instructionCodeShoveDup, "instructionCodeShoveDup"),
|
|
|
|
|
(instructionCodeIsStackEmpty, "instructionCodeIsStackEmpty"),
|
|
|
|
|
(instructionCodeFromBool, "instructionCodeFromBool"),
|
|
|
|
|
(instructionCodeFromInt, "instructionCodeFromInt"),
|
|
|
|
|
(instructionCodeFromChar, "instructionCodeFromChar"),
|
|
|
|
|
(instructionCodeFromFloat, "instructionCodeFromFloat"),
|
|
|
|
|
(instructionCodeFromString, "instructionCodeFromString"),
|
|
|
|
|
(instructionCodeFromVectorInt, "instructionCodeFromVectorInt"),
|
|
|
|
|
(instructionCodeFromVectorFloat, "instructionCodeFromVectorFloat"),
|
|
|
|
|
(instructionCodeFromVectorString, "instructionCodeFromVectorString"),
|
|
|
|
|
(instructionCodeFromVectorBool, "instructionCodeFromVectorBool"),
|
|
|
|
|
(instructionCodeFromVectorChar, "instructionCodeFromVectorChar"),
|
|
|
|
|
(instructionCodeFromExec, "instructionCodeFromExec"),
|
|
|
|
|
(instructionCodeContainer, "instructionCodeContainer"),
|
|
|
|
|
(instructionCodeDiscrepancy, "instructionCodeDiscrepancy"),
|
|
|
|
|
(instructionCodeNoOp, "instructionCodeNoOp"),
|
|
|
|
|
(instructionCodeTailN, "instructionCodeTailN"),
|
|
|
|
|
(instructionCodeDupItems, "instructionCodeDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allExecInstructions :: [Gene]
|
|
|
|
|
allExecInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionExecIf, "instructionExecIf"),
|
|
|
|
|
(instructionExecDup, "instructionExecDup"),
|
|
|
|
|
(instructionExecDupN, "instructionExecDupN"),
|
|
|
|
|
(instructionExecPop, "instructionExecPop"),
|
|
|
|
|
(instructionExecSwap, "instructionExecSwap"),
|
|
|
|
|
(instructionExecRot, "instructionExecRot"),
|
|
|
|
|
(instructionExecFlush, "instructionExecFlush"),
|
|
|
|
|
(instructionExecEq, "instructionExecEq"),
|
|
|
|
|
(instructionExecStackDepth, "instructionExecStackDepth"),
|
|
|
|
|
(instructionExecYank, "instructionExecYank"),
|
|
|
|
|
(instructionExecYankDup, "instructionExecYankDup"),
|
|
|
|
|
(instructionExecShove, "instructionExecShove"),
|
|
|
|
|
(instructionExecShoveDup, "instructionExecShoveDup"),
|
|
|
|
|
(instructionExecIsStackEmpty, "instructionExecIsStackEmpty"),
|
|
|
|
|
(instructionExecDoRange, "instructionExecDoRange"),
|
|
|
|
|
(instructionExecDoCount, "instructionExecDoCount"),
|
|
|
|
|
(instructionExecDoTimes, "instructionExecDoTimes"),
|
|
|
|
|
(instructionExecWhile, "instructionExecWhile"),
|
|
|
|
|
(instructionExecDoWhile, "instructionExecDoWhile"),
|
|
|
|
|
(instructionExecWhen, "instructionExecWhen"),
|
|
|
|
|
(instructionExecK, "instructionExecK"),
|
|
|
|
|
(instructionExecS, "instructionExecS"),
|
|
|
|
|
(instructionExecY, "instrucitonExecY"),
|
|
|
|
|
(instructionExecDupItems, "instructionExecDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allStringInstructions :: [Gene]
|
|
|
|
|
allStringInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionStringConcat, "instructionStringConcat"),
|
|
|
|
|
(instructionStringSwap, "instructionStringSwap"),
|
|
|
|
|
(instructionStringInsertString, "instructionStringInsertString"),
|
|
|
|
|
(instructionStringFromFirstChar, "instructionStringFromFirstChar"),
|
|
|
|
|
(instructionStringFromLastChar, "instructionStringFromLastChar"),
|
|
|
|
|
(instructionStringFromNthChar, "instructionStringFromNthChar"),
|
|
|
|
|
(instructionStringIndexOfString, "instructionStringIndexOfString"),
|
|
|
|
|
(instructionStringContainsString, "instructionStringContainsString"),
|
|
|
|
|
(instructionStringSplitOnString, "instructionStringSplitOnString"),
|
|
|
|
|
(instructionStringReplaceFirstString, "instructionStringReplaceFirstString"),
|
|
|
|
|
(instructionStringReplaceNString, "instructionStringReplaceNString"),
|
|
|
|
|
(instructionStringReplaceAllString, "instructionStringReplaceAllString"),
|
|
|
|
|
(instructionStringRemoveFirstString, "instructionStringRemoveFirstString"),
|
|
|
|
|
(instructionStringRemoveNString, "instructionStringRemoveNString"),
|
|
|
|
|
(instructionStringRemoveAllString, "instructionStringRemoveAllString"),
|
|
|
|
|
(instructionStringOccurrencesOfString, "instructionStringOccurrencesOfString"),
|
|
|
|
|
(instructionStringInsertChar, "instructionStringInsertChar"),
|
|
|
|
|
(instructionStringContainsChar, "instructionStringContainsChar"),
|
|
|
|
|
(instructionStringIndexOfChar, "instructionStringIndexOfChar"),
|
|
|
|
|
(instructionStringSplitOnChar, "instructionStringSplitOnChar"),
|
|
|
|
|
(instructionStringReplaceFirstChar, "instructionStringReplaceFirstChar"),
|
|
|
|
|
(instructionStringReplaceNChar, "instructionStringReplaceNChar"),
|
|
|
|
|
(instructionStringReplaceAllChar, "instructionStringReplaceAllChar"),
|
|
|
|
|
(instructionStringRemoveFirstChar, "instructionStringRemoveFirstChar"),
|
|
|
|
|
(instructionStringRemoveNChar, "instructionStringRemoveNChar"),
|
|
|
|
|
(instructionStringRemoveAllChar, "instructionStringRemoveAllChar"),
|
|
|
|
|
(instructionStringOccurrencesOfChar, "instructionStringOccurrencesOfChar"),
|
|
|
|
|
(instructionStringReverse, "instructionStringReverse"),
|
|
|
|
|
(instructionStringHead, "instructionStringHead"),
|
|
|
|
|
(instructionStringTail, "instructionStringTail"),
|
|
|
|
|
(instructionStringPrependChar, "instructionStringPrependChar"),
|
|
|
|
|
(instructionStringAppendChar, "instructionStringAppendChar"),
|
|
|
|
|
(instructionStringRest, "instructionStringRest"),
|
|
|
|
|
(instructionStringButLast, "instructionStringButLast"),
|
|
|
|
|
(instructionStringDrop, "instructionStringDrop"),
|
|
|
|
|
(instructionStringButLastN, "instructionStringButLastN"),
|
|
|
|
|
(instructionStringLength, "instructionStringLength"),
|
|
|
|
|
(instructionStringMakeEmpty, "instructionStringMakeEmpty"),
|
|
|
|
|
(instructionStringIsEmptyString, "instructionStringIsEmptyString"),
|
|
|
|
|
(instructionStringRemoveNth, "instructionStringRemoveNth"),
|
|
|
|
|
(instructionStringSetNth, "instructionStringSetNth"),
|
|
|
|
|
(instructionStringStripWhitespace, "instructionStringStripWhitespace"),
|
|
|
|
|
(instructionStringFromBool, "instructionStringFromBool"),
|
|
|
|
|
(instructionStringFromInt, "instructionStringFromInt"),
|
|
|
|
|
(instructionStringFromFloat, "instructionStringFromFloat"),
|
|
|
|
|
(instructionStringFromChar, "instructionStringFromChar"),
|
|
|
|
|
(instructionStringPop, "instructionStringPop"),
|
|
|
|
|
(instructionStringDup, "instructionStringDup"),
|
|
|
|
|
(instructionStringDupN, "instructionStringDupN"),
|
|
|
|
|
(instructionStringSwap, "instructionStringSwap"),
|
|
|
|
|
(instructionStringRot, "instructionStringRot"),
|
|
|
|
|
(instructionStringFlush, "instructionStringFlush"),
|
|
|
|
|
(instructionStringEq, "instructionStringEq"),
|
|
|
|
|
(instructionStringStackDepth, "instructionStringStackDepth"),
|
|
|
|
|
(instructionStringYank, "instructionStringYank"),
|
|
|
|
|
(instructionStringYankDup, "instructionStringYankDup"),
|
|
|
|
|
(instructionStringShove, "instructionStringShove"),
|
|
|
|
|
(instructionStringShoveDup, "instructionStringShoveDup"),
|
|
|
|
|
(instructionStringIsStackEmpty, "instructionStringIsStackEmpty"),
|
|
|
|
|
(instructionStringSort, "instructionStringSort"),
|
|
|
|
|
(instructionStringSortReverse, "instructionStringSortReverse"),
|
|
|
|
|
(instructionStringDupItems, "instructionStringDupItems"),
|
|
|
|
|
(instructionStringParseToChar, "instructionStringParseToChar"),
|
|
|
|
|
(instructionStringSubString, "instructionStringSubString")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allVectorIntInstructions :: [Gene]
|
|
|
|
|
allVectorIntInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionVectorIntConcat, "instructionVectorIntConcat"),
|
|
|
|
|
(instructionVectorIntConj, "instructionVectorIntConj"),
|
|
|
|
|
(instructionVectorIntConjEnd, "instructionVectorIntConjEnd"),
|
|
|
|
|
(instructionVectorIntTakeN, "instructionVectorIntTakeN"),
|
|
|
|
|
(instructionVectorIntSubVector, "instructionVectorIntSubVector"),
|
|
|
|
|
(instructionVectorIntFirst, "instructionVectorIntFirst"),
|
|
|
|
|
(instructionVectorIntFromFirstPrim, "instructionVectorFirstFromPrim"),
|
|
|
|
|
(instructionVectorIntFromPrim, "instructionVectorFromPrim"),
|
|
|
|
|
(instructionVectorIntLast, "instructionVectorIntLast"),
|
|
|
|
|
(instructionVectorIntFromLastPrim, "instructionVectorIntFromLastPrim"),
|
|
|
|
|
(instructionVectorIntNth, "instructionVectorIntNth"),
|
|
|
|
|
(instructionVectorIntFromNthPrim, "instructionVectorIntFromNthPrim"),
|
|
|
|
|
(instructionVectorIntRest, "instructionVectorIntRest"),
|
|
|
|
|
(instructionVectorIntButLast, "instructionVectorIntButLast"),
|
|
|
|
|
(instructionVectorIntDrop, "instructionVectorIntDrop"),
|
|
|
|
|
(instructionVectorIntDropR, "instructionVectorIntDropR"),
|
|
|
|
|
(instructionVectorIntLength, "instructionVectorIntLength"),
|
|
|
|
|
(instructionVectorIntReverse, "instructionVectorIntReverse"),
|
|
|
|
|
(instructionVectorIntPushAll, "instructionVectorIntPushAll"),
|
|
|
|
|
(instructionVectorIntMakeEmpty, "instructionVectorIntMakeEmpty"),
|
|
|
|
|
(instructionVectorIntIsEmpty, "instructionVectorIntIsEmpty"),
|
|
|
|
|
(instructionVectorIntContains, "instructionVectorIntContains"),
|
|
|
|
|
(instructionVectorIntContainsVectorInt, "instructionVectorIntContainsVectorInt"),
|
|
|
|
|
(instructionVectorIntIndexOf, "instructionVectorIntIndexOf"),
|
|
|
|
|
(instructionVectorIntIndexOfVectorInt, "instructionVectorIntIndexOfVectorInt"),
|
|
|
|
|
(instructionVectorIntOccurrencesOf, "instructionVectorIntOccurrencesOf"),
|
|
|
|
|
(instructionVectorIntOccurrencesOfVectorInt, "instructionVectorIntOccurrencesOfVectorInt"),
|
|
|
|
|
(instructionVectorIntParseToInt, "instructionVectorIntParseToInt"),
|
|
|
|
|
(instructionVectorIntSetNth, "instructionVectorIntSetNth"),
|
|
|
|
|
(instructionVectorIntSplitOn, "instructionVectorIntSplitOn"),
|
|
|
|
|
(instructionVectorIntSplitOnVectorInt, "instructionVectorIntSplitOnVectorInt"),
|
|
|
|
|
(instructionVectorIntReplaceFirst, "instructionVectorIntReplaceFirst"),
|
|
|
|
|
(instructionVectorIntReplaceN, "instructionVectorIntReplaceN"),
|
|
|
|
|
(instructionVectorIntReplaceAll, "instructionVectorIntReplaceAll"),
|
|
|
|
|
(instructionVectorIntReplaceFirstVectorInt, "instructionVectorIntReplaceFirstVectorInt"),
|
|
|
|
|
(instructionVectorIntReplaceVectorIntN, "instructionVectorIntReplaceVectorIntN"),
|
|
|
|
|
(instructionVectorIntReplaceAllVectorInt, "instructionVectorIntReplaceAllVectorInt"),
|
|
|
|
|
(instructionVectorIntRemoveFirst, "instructionVectorIntRemoveFirst"),
|
|
|
|
|
(instructionVectorIntRemoveN, "instructionVectorIntRemoveN"),
|
|
|
|
|
(instructionVectorIntRemoveAll, "instructionVectorIntRemoveAll"),
|
|
|
|
|
(instructionVectorIntRemoveFirstVectorInt, "instructionVectorIntRemoveFirstVectorInt"),
|
|
|
|
|
(instructionVectorIntRemoveNVectorInt, "instructionVectorIntRemoveNVectorInt"),
|
|
|
|
|
(instructionVectorIntRemoveAllVectorInt, "instructionVectorIntRemoveAllVectorInt"),
|
|
|
|
|
(instructionVectorIntIterate, "instructionVectorIntIterate"),
|
|
|
|
|
(instructionVectorIntInsert, "instructionVectorIntInsert"),
|
|
|
|
|
(instructionVectorIntInsertVectorInt, "instructionVectorIntInsertVectorInt"),
|
|
|
|
|
(instructionVectorIntPop, "instructionVectorIntPop"),
|
|
|
|
|
(instructionVectorIntDup, "instructionVectorIntDup"),
|
|
|
|
|
(instructionVectorIntDupN, "instructionVectorIntDupN"),
|
|
|
|
|
(instructionVectorIntSwap, "instructionVectorIntSwap"),
|
|
|
|
|
(instructionVectorIntRot, "instructionVectorIntRot"),
|
|
|
|
|
(instructionVectorIntFlush, "instructionVectorIntFlush"),
|
|
|
|
|
(instructionVectorIntEq, "instructionVectorIntEq"),
|
|
|
|
|
(instructionVectorIntStackDepth, "instructionVectorIntStackDepth"),
|
|
|
|
|
(instructionVectorIntYank, "instructionVectorIntYank"),
|
|
|
|
|
(instructionVectorIntYankDup, "instructionVectorIntYankDup"),
|
|
|
|
|
(instructionVectorIntShove, "instructionVectorIntShove"),
|
|
|
|
|
(instructionVectorIntShoveDup, "instructionVectorIntShoveDup"),
|
|
|
|
|
(instructionVectorIntDupItems, "intsructionVectorIntDupItems"),
|
|
|
|
|
(instructionVectorIntIsStackEmpty, "instructionVectorIntIsStackEmpty"),
|
|
|
|
|
(instructionVectorIntSort, "instructionVectorIntSort"),
|
|
|
|
|
(instructionVectorIntSortReverse, "instructionVectorIntSortReverse"),
|
|
|
|
|
(instructionVectorIntDupItems, "instructionVectorIntDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allVectorFloatInstructions :: [Gene]
|
|
|
|
|
allVectorFloatInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionVectorFloatConcat, "instructionVectorFloatConcat"),
|
|
|
|
|
(instructionVectorFloatConj, "instructionVectorFloatConj"),
|
|
|
|
|
(instructionVectorFloatConjEnd, "instructionVectorFloatConjEnd"),
|
|
|
|
|
(instructionVectorFloatTakeN, "instructionVectorFloatTakeN"),
|
|
|
|
|
(instructionVectorFloatSubVector, "instructionVectorFloatSubVector"),
|
|
|
|
|
(instructionVectorFloatFirst, "instructionVectorFloatFirst"),
|
|
|
|
|
(instructionVectorFloatFromFirstPrim, "instructionVectorFirstFromPrim"),
|
|
|
|
|
(instructionVectorFloatFromPrim, "instructionVectorFromPrim"),
|
|
|
|
|
(instructionVectorFloatLast, "instructionVectorFloatLast"),
|
|
|
|
|
(instructionVectorFloatFromLastPrim, "instructionVectorFloatFromLastPrim"),
|
|
|
|
|
(instructionVectorFloatNth, "instructionVectorFloatNth"),
|
|
|
|
|
(instructionVectorFloatFromNthPrim, "instructionVectorFloatFromNthPrim"),
|
|
|
|
|
(instructionVectorFloatRest, "instructionVectorFloatRest"),
|
|
|
|
|
(instructionVectorFloatButLast, "instructionVectorFloatButLast"),
|
|
|
|
|
(instructionVectorFloatDrop, "instructionVectorFloatDrop"),
|
|
|
|
|
(instructionVectorFloatDropR, "instructionVectorFloatDropR"),
|
|
|
|
|
(instructionVectorFloatLength, "instructionVectorFloatLength"),
|
|
|
|
|
(instructionVectorFloatReverse, "instructionVectorFloatReverse"),
|
|
|
|
|
(instructionVectorFloatPushAll, "instructionVectorFloatPushAll"),
|
|
|
|
|
(instructionVectorFloatMakeEmpty, "instructionVectorFloatMakeEmpty"),
|
|
|
|
|
(instructionVectorFloatIsEmpty, "instructionVectorFloatIsEmpty"),
|
|
|
|
|
(instructionVectorFloatContains, "instructionVectorFloatContains"),
|
|
|
|
|
(instructionVectorFloatContainsVectorFloat, "instructionVectorFloatContainsVectorFloat"),
|
|
|
|
|
(instructionVectorFloatIndexOf, "instructionVectorFloatIndexOf"),
|
|
|
|
|
(instructionVectorFloatIndexOfVectorFloat, "instructionVectorFloatIndexOfVectorFloat"),
|
|
|
|
|
(instructionVectorFloatOccurrencesOf, "instructionVectorFloatOccurrencesOf"),
|
|
|
|
|
(instructionVectorFloatOccurrencesOfVectorFloat, "instructionVectorFloatOccurrencesOfVectorFloat"),
|
|
|
|
|
(instructionVectorFloatParseToFloat, "instructionVectorFloatParseToFloat"),
|
|
|
|
|
(instructionVectorFloatSetNth, "instructionVectorFloatSetNth"),
|
|
|
|
|
(instructionVectorFloatSplitOn, "instructionVectorFloatSplitOn"),
|
|
|
|
|
(instructionVectorFloatSplitOnVectorFloat, "instructionVectorFloatSplitOnVectorFloat"),
|
|
|
|
|
(instructionVectorFloatReplaceFirst, "instructionVectorFloatReplaceFirst"),
|
|
|
|
|
(instructionVectorFloatReplaceN, "instructionVectorFloatReplaceN"),
|
|
|
|
|
(instructionVectorFloatReplaceAll, "instructionVectorFloatReplaceAll"),
|
|
|
|
|
(instructionVectorFloatReplaceFirstVectorFloat, "instructionVectorFloatReplaceFirstVectorFloat"),
|
|
|
|
|
(instructionVectorFloatReplaceVectorFloatN, "instructionVectorFloatReplaceVectorFloatN"),
|
|
|
|
|
(instructionVectorFloatReplaceAllVectorFloat, "instructionVectorFloatReplaceAllVectorFloat"),
|
|
|
|
|
(instructionVectorFloatRemoveFirst, "instructionVectorFloatRemoveFirst"),
|
|
|
|
|
(instructionVectorFloatRemoveN, "instructionVectorFloatRemoveN"),
|
|
|
|
|
(instructionVectorFloatRemoveAll, "instructionVectorFloatRemoveAll"),
|
|
|
|
|
(instructionVectorFloatRemoveFirstVectorFloat, "instructionVectorFloatRemoveFirstVectorFloat"),
|
|
|
|
|
(instructionVectorFloatRemoveNVectorFloat, "instructionVectorFloatRemoveNVectorFloat"),
|
|
|
|
|
(instructionVectorFloatRemoveAllVectorFloat, "instructionVectorFloatRemoveAllVectorFloat"),
|
|
|
|
|
(instructionVectorFloatIterate, "instructionVectorFloatIterate"),
|
|
|
|
|
(instructionVectorFloatInsert, "instructionVectorFloatInsert"),
|
|
|
|
|
(instructionVectorFloatInsertVectorFloat, "instructionVectorFloatInsertVectorFloat"),
|
|
|
|
|
(instructionVectorFloatPop, "instructionVectorFloatPop"),
|
|
|
|
|
(instructionVectorFloatDup, "instructionVectorFloatDup"),
|
|
|
|
|
(instructionVectorFloatDupN, "instructionVectorFloatDupN"),
|
|
|
|
|
(instructionVectorFloatSwap, "instructionVectorFloatSwap"),
|
|
|
|
|
(instructionVectorFloatRot, "instructionVectorFloatRot"),
|
|
|
|
|
(instructionVectorFloatFlush, "instructionVectorFloatFlush"),
|
|
|
|
|
(instructionVectorFloatEq, "instructionVectorFloatEq"),
|
|
|
|
|
(instructionVectorFloatStackDepth, "instructionVectorFloatStackDepth"),
|
|
|
|
|
(instructionVectorFloatYank, "instructionVectorFloatYank"),
|
|
|
|
|
(instructionVectorFloatYankDup, "instructionVectorFloatYankDup"),
|
|
|
|
|
(instructionVectorFloatShove, "instructionVectorFloatShove"),
|
|
|
|
|
(instructionVectorFloatShoveDup, "instructionVectorFloatShoveDup"),
|
|
|
|
|
(instructionVectorFloatDupItems, "intsructionVectorFloatDupItems"),
|
|
|
|
|
(instructionVectorFloatIsStackEmpty, "instructionVectorFloatIsStackEmpty"),
|
|
|
|
|
(instructionVectorFloatSort, "instructionVectorFloatSort"),
|
|
|
|
|
(instructionVectorFloatSortReverse, "instructionVectorFloatSortReverse"),
|
|
|
|
|
(instructionVectorFloatDupItems, "instructionVectorFloatDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allVectorCharInstructions :: [Gene]
|
|
|
|
|
allVectorCharInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionVectorCharConcat, "instructionVectorCharConcat"),
|
|
|
|
|
(instructionVectorCharConj, "instructionVectorCharConj"),
|
|
|
|
|
(instructionVectorCharConjEnd, "instructionVectorCharConjEnd"),
|
|
|
|
|
(instructionVectorCharTakeN, "instructionVectorCharTakeN"),
|
|
|
|
|
(instructionVectorCharSubVector, "instructionVectorCharSubVector"),
|
|
|
|
|
(instructionVectorCharFirst, "instructionVectorCharFirst"),
|
|
|
|
|
(instructionVectorCharFromFirstPrim, "instructionVectorFirstFromPrim"),
|
|
|
|
|
(instructionVectorCharFromPrim, "instructionVectorFromPrim"),
|
|
|
|
|
(instructionVectorCharLast, "instructionVectorCharLast"),
|
|
|
|
|
(instructionVectorCharFromLastPrim, "instructionVectorCharFromLastPrim"),
|
|
|
|
|
(instructionVectorCharNth, "instructionVectorCharNth"),
|
|
|
|
|
(instructionVectorCharFromNthPrim, "instructionVectorCharFromNthPrim"),
|
|
|
|
|
(instructionVectorCharRest, "instructionVectorCharRest"),
|
|
|
|
|
(instructionVectorCharButLast, "instructionVectorCharButLast"),
|
|
|
|
|
(instructionVectorCharDrop, "instructionVectorCharDrop"),
|
|
|
|
|
(instructionVectorCharDropR, "instructionVectorCharDropR"),
|
|
|
|
|
(instructionVectorCharLength, "instructionVectorCharLength"),
|
|
|
|
|
(instructionVectorCharReverse, "instructionVectorCharReverse"),
|
|
|
|
|
(instructionVectorCharPushAll, "instructionVectorCharPushAll"),
|
|
|
|
|
(instructionVectorCharMakeEmpty, "instructionVectorCharMakeEmpty"),
|
|
|
|
|
(instructionVectorCharIsEmpty, "instructionVectorCharIsEmpty"),
|
|
|
|
|
(instructionVectorCharContains, "instructionVectorCharContains"),
|
|
|
|
|
(instructionVectorCharContainsVectorChar, "instructionVectorCharContainsVectorChar"),
|
|
|
|
|
(instructionVectorCharIndexOf, "instructionVectorCharIndexOf"),
|
|
|
|
|
(instructionVectorCharIndexOfVectorChar, "instructionVectorCharIndexOfVectorChar"),
|
|
|
|
|
(instructionVectorCharOccurrencesOf, "instructionVectorCharOccurrencesOf"),
|
|
|
|
|
(instructionVectorCharOccurrencesOfVectorChar, "instructionVectorCharOccurrencesOfVectorChar"),
|
|
|
|
|
(instructionVectorCharParseToChar, "instructionVectorCharParseToChar"),
|
|
|
|
|
(instructionVectorCharSetNth, "instructionVectorCharSetNth"),
|
|
|
|
|
(instructionVectorCharSplitOn, "instructionVectorCharSplitOn"),
|
|
|
|
|
(instructionVectorCharSplitOnVectorChar, "instructionVectorCharSplitOnVectorChar"),
|
|
|
|
|
(instructionVectorCharReplaceFirst, "instructionVectorCharReplaceFirst"),
|
|
|
|
|
(instructionVectorCharReplaceN, "instructionVectorCharReplaceN"),
|
|
|
|
|
(instructionVectorCharReplaceAll, "instructionVectorCharReplaceAll"),
|
|
|
|
|
(instructionVectorCharReplaceFirstVectorChar, "instructionVectorCharReplaceFirstVectorChar"),
|
|
|
|
|
(instructionVectorCharReplaceVectorCharN, "instructionVectorCharReplaceVectorCharN"),
|
|
|
|
|
(instructionVectorCharReplaceAllVectorChar, "instructionVectorCharReplaceAllVectorChar"),
|
|
|
|
|
(instructionVectorCharRemoveFirst, "instructionVectorCharRemoveFirst"),
|
|
|
|
|
(instructionVectorCharRemoveN, "instructionVectorCharRemoveN"),
|
|
|
|
|
(instructionVectorCharRemoveAll, "instructionVectorCharRemoveAll"),
|
|
|
|
|
(instructionVectorCharRemoveFirstVectorChar, "instructionVectorCharRemoveFirstVectorChar"),
|
|
|
|
|
(instructionVectorCharRemoveNVectorChar, "instructionVectorCharRemoveNVectorChar"),
|
|
|
|
|
(instructionVectorCharRemoveAllVectorChar, "instructionVectorCharRemoveAllVectorChar"),
|
|
|
|
|
(instructionVectorCharIterate, "instructionVectorCharIterate"),
|
|
|
|
|
(instructionVectorCharInsert, "instructionVectorCharInsert"),
|
|
|
|
|
(instructionVectorCharInsertVectorChar, "instructionVectorCharInsertVectorChar"),
|
|
|
|
|
(instructionVectorCharPop, "instructionVectorCharPop"),
|
|
|
|
|
(instructionVectorCharDup, "instructionVectorCharDup"),
|
|
|
|
|
(instructionVectorCharDupN, "instructionVectorCharDupN"),
|
|
|
|
|
(instructionVectorCharSwap, "instructionVectorCharSwap"),
|
|
|
|
|
(instructionVectorCharRot, "instructionVectorCharRot"),
|
|
|
|
|
(instructionVectorCharFlush, "instructionVectorCharFlush"),
|
|
|
|
|
(instructionVectorCharEq, "instructionVectorCharEq"),
|
|
|
|
|
(instructionVectorCharStackDepth, "instructionVectorCharStackDepth"),
|
|
|
|
|
(instructionVectorCharYank, "instructionVectorCharYank"),
|
|
|
|
|
(instructionVectorCharYankDup, "instructionVectorCharYankDup"),
|
|
|
|
|
(instructionVectorCharShove, "instructionVectorCharShove"),
|
|
|
|
|
(instructionVectorCharShoveDup, "instructionVectorCharShoveDup"),
|
|
|
|
|
(instructionVectorCharDupItems, "intsructionVectorCharDupItems"),
|
|
|
|
|
(instructionVectorCharIsStackEmpty, "instructionVectorCharIsStackEmpty"),
|
|
|
|
|
(instructionVectorCharSort, "instructionVectorCharSort"),
|
|
|
|
|
(instructionVectorCharSortReverse, "instructionVectorCharSortReverse"),
|
|
|
|
|
(instructionVectorCharDupItems, "instructionVectorCharDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allVectorStringInstructions :: [Gene]
|
|
|
|
|
allVectorStringInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionVectorStringConcat, "instructionVectorStringConcat"),
|
|
|
|
|
(instructionVectorStringConj, "instructionVectorStringConj"),
|
|
|
|
|
(instructionVectorStringConjEnd, "instructionVectorStringConjEnd"),
|
|
|
|
|
(instructionVectorStringTakeN, "instructionVectorStringTakeN"),
|
|
|
|
|
(instructionVectorStringSubVector, "instructionVectorStringSubVector"),
|
|
|
|
|
(instructionVectorStringFirst, "instructionVectorStringFirst"),
|
|
|
|
|
(instructionVectorStringFromFirstPrim, "instructionVectorFirstFromPrim"),
|
|
|
|
|
(instructionVectorStringFromPrim, "instructionVectorFromPrim"),
|
|
|
|
|
(instructionVectorStringLast, "instructionVectorStringLast"),
|
|
|
|
|
(instructionVectorStringFromLastPrim, "instructionVectorStringFromLastPrim"),
|
|
|
|
|
(instructionVectorStringNth, "instructionVectorStringNth"),
|
|
|
|
|
(instructionVectorStringFromNthPrim, "instructionVectorStringFromNthPrim"),
|
|
|
|
|
(instructionVectorStringRest, "instructionVectorStringRest"),
|
|
|
|
|
(instructionVectorStringButLast, "instructionVectorStringButLast"),
|
|
|
|
|
(instructionVectorStringDrop, "instructionVectorStringDrop"),
|
|
|
|
|
(instructionVectorStringDropR, "instructionVectorStringDropR"),
|
|
|
|
|
(instructionVectorStringLength, "instructionVectorStringLength"),
|
|
|
|
|
(instructionVectorStringReverse, "instructionVectorStringReverse"),
|
|
|
|
|
(instructionVectorStringPushAll, "instructionVectorStringPushAll"),
|
|
|
|
|
(instructionVectorStringMakeEmpty, "instructionVectorStringMakeEmpty"),
|
|
|
|
|
(instructionVectorStringIsEmpty, "instructionVectorStringIsEmpty"),
|
|
|
|
|
(instructionVectorStringContains, "instructionVectorStringContains"),
|
|
|
|
|
(instructionVectorStringContainsVectorString, "instructionVectorStringContainsVectorString"),
|
|
|
|
|
(instructionVectorStringIndexOf, "instructionVectorStringIndexOf"),
|
|
|
|
|
(instructionVectorStringIndexOfVectorString, "instructionVectorStringIndexOfVectorString"),
|
|
|
|
|
(instructionVectorStringOccurrencesOf, "instructionVectorStringOccurrencesOf"),
|
|
|
|
|
(instructionVectorStringOccurrencesOfVectorString, "instructionVectorStringOccurrencesOfVectorString"),
|
|
|
|
|
(instructionVectorStringParseToString, "instructionVectorStringParseToString"),
|
|
|
|
|
(instructionVectorStringSetNth, "instructionVectorStringSetNth"),
|
|
|
|
|
(instructionVectorStringSplitOn, "instructionVectorStringSplitOn"),
|
|
|
|
|
(instructionVectorStringSplitOnVectorString, "instructionVectorStringSplitOnVectorString"),
|
|
|
|
|
(instructionVectorStringReplaceFirst, "instructionVectorStringReplaceFirst"),
|
|
|
|
|
(instructionVectorStringReplaceN, "instructionVectorStringReplaceN"),
|
|
|
|
|
(instructionVectorStringReplaceAll, "instructionVectorStringReplaceAll"),
|
|
|
|
|
(instructionVectorStringReplaceFirstVectorString, "instructionVectorStringReplaceFirstVectorString"),
|
|
|
|
|
(instructionVectorStringReplaceVectorStringN, "instructionVectorStringReplaceVectorStringN"),
|
|
|
|
|
(instructionVectorStringReplaceAllVectorString, "instructionVectorStringReplaceAllVectorString"),
|
|
|
|
|
(instructionVectorStringRemoveFirst, "instructionVectorStringRemoveFirst"),
|
|
|
|
|
(instructionVectorStringRemoveN, "instructionVectorStringRemoveN"),
|
|
|
|
|
(instructionVectorStringRemoveAll, "instructionVectorStringRemoveAll"),
|
|
|
|
|
(instructionVectorStringRemoveFirstVectorString, "instructionVectorStringRemoveFirstVectorString"),
|
|
|
|
|
(instructionVectorStringRemoveNVectorString, "instructionVectorStringRemoveNVectorString"),
|
|
|
|
|
(instructionVectorStringRemoveAllVectorString, "instructionVectorStringRemoveAllVectorString"),
|
|
|
|
|
(instructionVectorStringIterate, "instructionVectorStringIterate"),
|
|
|
|
|
(instructionVectorStringInsert, "instructionVectorStringInsert"),
|
|
|
|
|
(instructionVectorStringInsertVectorString, "instructionVectorStringInsertVectorString"),
|
|
|
|
|
(instructionVectorStringPop, "instructionVectorStringPop"),
|
|
|
|
|
(instructionVectorStringDup, "instructionVectorStringDup"),
|
|
|
|
|
(instructionVectorStringDupN, "instructionVectorStringDupN"),
|
|
|
|
|
(instructionVectorStringSwap, "instructionVectorStringSwap"),
|
|
|
|
|
(instructionVectorStringRot, "instructionVectorStringRot"),
|
|
|
|
|
(instructionVectorStringFlush, "instructionVectorStringFlush"),
|
|
|
|
|
(instructionVectorStringEq, "instructionVectorStringEq"),
|
|
|
|
|
(instructionVectorStringStackDepth, "instructionVectorStringStackDepth"),
|
|
|
|
|
(instructionVectorStringYank, "instructionVectorStringYank"),
|
|
|
|
|
(instructionVectorStringYankDup, "instructionVectorStringYankDup"),
|
|
|
|
|
(instructionVectorStringShove, "instructionVectorStringShove"),
|
|
|
|
|
(instructionVectorStringShoveDup, "instructionVectorStringShoveDup"),
|
|
|
|
|
(instructionVectorStringDupItems, "intsructionVectorStringDupItems"),
|
|
|
|
|
(instructionVectorStringIsStackEmpty, "instructionVectorStringIsStackEmpty"),
|
|
|
|
|
(instructionVectorStringSort, "instructionVectorStringSort"),
|
|
|
|
|
(instructionVectorStringSortReverse, "instructionVectorStringSortReverse"),
|
|
|
|
|
(instructionVectorStringDupItems, "instructionVectorStringDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
allVectorBoolInstructions :: [Gene]
|
|
|
|
|
allVectorBoolInstructions =
|
|
|
|
|
map
|
|
|
|
|
StateFunc
|
|
|
|
|
[ (instructionVectorBoolConcat, "instructionVectorBoolConcat"),
|
|
|
|
|
(instructionVectorBoolConj, "instructionVectorBoolConj"),
|
|
|
|
|
(instructionVectorBoolConjEnd, "instructionVectorBoolConjEnd"),
|
|
|
|
|
(instructionVectorBoolTakeN, "instructionVectorBoolTakeN"),
|
|
|
|
|
(instructionVectorBoolSubVector, "instructionVectorBoolSubVector"),
|
|
|
|
|
(instructionVectorBoolFirst, "instructionVectorBoolFirst"),
|
|
|
|
|
(instructionVectorBoolFromFirstPrim, "instructionVectorFirstFromPrim"),
|
|
|
|
|
(instructionVectorBoolFromPrim, "instructionVectorFromPrim"),
|
|
|
|
|
(instructionVectorBoolLast, "instructionVectorBoolLast"),
|
|
|
|
|
(instructionVectorBoolFromLastPrim, "instructionVectorBoolFromLastPrim"),
|
|
|
|
|
(instructionVectorBoolNth, "instructionVectorBoolNth"),
|
|
|
|
|
(instructionVectorBoolFromNthPrim, "instructionVectorBoolFromNthPrim"),
|
|
|
|
|
(instructionVectorBoolRest, "instructionVectorBoolRest"),
|
|
|
|
|
(instructionVectorBoolButLast, "instructionVectorBoolButLast"),
|
|
|
|
|
(instructionVectorBoolDrop, "instructionVectorBoolDrop"),
|
|
|
|
|
(instructionVectorBoolDropR, "instructionVectorBoolDropR"),
|
|
|
|
|
(instructionVectorBoolLength, "instructionVectorBoolLength"),
|
|
|
|
|
(instructionVectorBoolReverse, "instructionVectorBoolReverse"),
|
|
|
|
|
(instructionVectorBoolPushAll, "instructionVectorBoolPushAll"),
|
|
|
|
|
(instructionVectorBoolMakeEmpty, "instructionVectorBoolMakeEmpty"),
|
|
|
|
|
(instructionVectorBoolIsEmpty, "instructionVectorBoolIsEmpty"),
|
|
|
|
|
(instructionVectorBoolContains, "instructionVectorBoolContains"),
|
|
|
|
|
(instructionVectorBoolContainsVectorBool, "instructionVectorBoolContainsVectorBool"),
|
|
|
|
|
(instructionVectorBoolIndexOf, "instructionVectorBoolIndexOf"),
|
|
|
|
|
(instructionVectorBoolIndexOfVectorBool, "instructionVectorBoolIndexOfVectorBool"),
|
|
|
|
|
(instructionVectorBoolOccurrencesOf, "instructionVectorBoolOccurrencesOf"),
|
|
|
|
|
(instructionVectorBoolOccurrencesOfVectorBool, "instructionVectorBoolOccurrencesOfVectorBool"),
|
|
|
|
|
(instructionVectorBoolParseToBool, "instructionVectorBoolParseToBool"),
|
|
|
|
|
(instructionVectorBoolSetNth, "instructionVectorBoolSetNth"),
|
|
|
|
|
(instructionVectorBoolSplitOn, "instructionVectorBoolSplitOn"),
|
|
|
|
|
(instructionVectorBoolSplitOnVectorBool, "instructionVectorBoolSplitOnVectorBool"),
|
|
|
|
|
(instructionVectorBoolReplaceFirst, "instructionVectorBoolReplaceFirst"),
|
|
|
|
|
(instructionVectorBoolReplaceN, "instructionVectorBoolReplaceN"),
|
|
|
|
|
(instructionVectorBoolReplaceAll, "instructionVectorBoolReplaceAll"),
|
|
|
|
|
(instructionVectorBoolReplaceFirstVectorBool, "instructionVectorBoolReplaceFirstVectorBool"),
|
|
|
|
|
(instructionVectorBoolReplaceVectorBoolN, "instructionVectorBoolReplaceVectorBoolN"),
|
|
|
|
|
(instructionVectorBoolReplaceAllVectorBool, "instructionVectorBoolReplaceAllVectorBool"),
|
|
|
|
|
(instructionVectorBoolRemoveFirst, "instructionVectorBoolRemoveFirst"),
|
|
|
|
|
(instructionVectorBoolRemoveN, "instructionVectorBoolRemoveN"),
|
|
|
|
|
(instructionVectorBoolRemoveAll, "instructionVectorBoolRemoveAll"),
|
|
|
|
|
(instructionVectorBoolRemoveFirstVectorBool, "instructionVectorBoolRemoveFirstVectorBool"),
|
|
|
|
|
(instructionVectorBoolRemoveNVectorBool, "instructionVectorBoolRemoveNVectorBool"),
|
|
|
|
|
(instructionVectorBoolRemoveAllVectorBool, "instructionVectorBoolRemoveAllVectorBool"),
|
|
|
|
|
(instructionVectorBoolIterate, "instructionVectorBoolIterate"),
|
|
|
|
|
(instructionVectorBoolInsert, "instructionVectorBoolInsert"),
|
|
|
|
|
(instructionVectorBoolInsertVectorBool, "instructionVectorBoolInsertVectorBool"),
|
|
|
|
|
(instructionVectorBoolPop, "instructionVectorBoolPop"),
|
|
|
|
|
(instructionVectorBoolDup, "instructionVectorBoolDup"),
|
|
|
|
|
(instructionVectorBoolDupN, "instructionVectorBoolDupN"),
|
|
|
|
|
(instructionVectorBoolSwap, "instructionVectorBoolSwap"),
|
|
|
|
|
(instructionVectorBoolRot, "instructionVectorBoolRot"),
|
|
|
|
|
(instructionVectorBoolFlush, "instructionVectorBoolFlush"),
|
|
|
|
|
(instructionVectorBoolEq, "instructionVectorBoolEq"),
|
|
|
|
|
(instructionVectorBoolStackDepth, "instructionVectorBoolStackDepth"),
|
|
|
|
|
(instructionVectorBoolYank, "instructionVectorBoolYank"),
|
|
|
|
|
(instructionVectorBoolYankDup, "instructionVectorBoolYankDup"),
|
|
|
|
|
(instructionVectorBoolShove, "instructionVectorBoolShove"),
|
|
|
|
|
(instructionVectorBoolShoveDup, "instructionVectorBoolShoveDup"),
|
|
|
|
|
(instructionVectorBoolDupItems, "intsructionVectorBoolDupItems"),
|
|
|
|
|
(instructionVectorBoolIsStackEmpty, "instructionVectorBoolIsStackEmpty"),
|
|
|
|
|
(instructionVectorBoolSort, "instructionVectorBoolSort"),
|
|
|
|
|
(instructionVectorBoolSortReverse, "instructionVectorBoolSortReverse"),
|
|
|
|
|
(instructionVectorBoolDupItems, "instructionVectorBoolDupItems")
|
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
-- | All of the instructions declared in all the instruction submodules
|
|
|
|
|
allInstructions :: [Gene]
|
|
|
|
|
allInstructions =
|
|
|
|
|
allIntInstructions
|
|
|
|
|
|
