master > master: codego - auslagern, erzeugungsmethode verbessert, SyntaxBaum -> Formula

2021-05-14 16:58:27 +02:00
parent d490406892
commit 73b7817dcd
17 changed files with 1105 additions and 647 deletions
--- a/codego/aussagenlogik/formulae/formulae_generate.go
+++ b/codego/aussagenlogik/formulae/formulae_generate.go
@@ -0,0 +1,165 @@
+package formulae
+
+// NOTE: GoLang hat noch keine generics. Erst 2022.
+
+/* ---------------------------------------------------------------- *
+ * Generate int-value FN from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeIntValued(scheme func(fml Formula, prevValues []int) int) func(fml Formula) int {
+	var fn func(fml Formula) int
+	var subFn = func(ch chan int, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) int {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan int), n)
+		var prevValues = make([]int, len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan int) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}
+
+/* ---------------------------------------------------------------- *
+ * Generate string-value FN from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeStringValued(scheme func(fml Formula, prevValues []string) string) func(fml Formula) string {
+	var fn func(fml Formula) string
+	var subFn = func(ch chan string, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) string {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan string), n)
+		var prevValues = make([]string, len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan string) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}
+
+/* ---------------------------------------------------------------- *
+ * Generate *[]string-value Fn from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeStringsValued(scheme func(fml Formula, prevValues [][]string) []string) func(fml Formula) []string {
+	var fn func(fml Formula) []string
+	var subFn = func(ch chan []string, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) []string {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan []string), n)
+		var prevValues = make([][]string, len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan []string) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}
+
+/* ---------------------------------------------------------------- *
+ * Generate Formula-value Fn from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeFmlValued(scheme func(fml Formula, prevValues []Formula) Formula) func(fml Formula) Formula {
+	var fn func(fml Formula) Formula
+	var subFn = func(ch chan Formula, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) Formula {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan Formula), n)
+		var prevValues = make([]Formula, len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan Formula) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}
+
+/* ---------------------------------------------------------------- *
+ * Generate *[]Formula-value Fn from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeFmlsValued(scheme func(fml Formula, prevValues [](*[]Formula)) *[]Formula) func(fml Formula) *[]Formula {
+	var fn func(fml Formula) *[]Formula
+	var subFn = func(ch chan *[]Formula, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) *[]Formula {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan *[]Formula), n)
+		var prevValues = make([](*[]Formula), len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan *[]Formula) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}
+
+/* ---------------------------------------------------------------- *
+ * Generate {pos: Formula, ne: Formula}-value Fn from scheme
+ * ---------------------------------------------------------------- */
+
+func CreateFromSchemeFmlPairValued(scheme func(fml Formula, prevValues []FormulaPair) FormulaPair) func(fml Formula) FormulaPair {
+	var fn func(fml Formula) FormulaPair
+	var subFn = func(ch chan FormulaPair, subfml Formula) { ch <- fn(subfml) }
+	fn = func(fml Formula) FormulaPair {
+		var subfmls = fml.GetSubFormulae()
+		var n = len(subfmls)
+		var subChan = make([](chan FormulaPair), n)
+		var prevValues = make([]FormulaPair, len(subfmls))
+		// start parallel computations on subformulas
+		for i, subfml := range subfmls {
+			subChan[i] = make(chan FormulaPair) // create Channel, since currently nil
+			go subFn(subChan[i], subfml)
+		}
+		// successively read values
+		for i := 0; i < n; i++ {
+			prevValues[i] = <-subChan[i]
+		}
+		// apply schema to get value for formula
+		return scheme(fml, prevValues)
+	}
+	return fn
+}