From 6f6c4377b236902566794c3d06820f3fdd7ec28c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 16 May 2018 18:12:56 -0700 Subject: Initial working version. --- core/math.nom | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'core/math.nom') diff --git a/core/math.nom b/core/math.nom index c507b87..120c210 100644 --- a/core/math.nom +++ b/core/math.nom @@ -42,7 +42,7 @@ compile [all of %items, all %items] to unless: (%items' "type") is "List" return: Lua value "utils.all(\(%items as lua expr))" %clauses <- [] - for % in (%items' "value") + for % in %items lua> "table.insert(\%clauses, \(% as lua expr));" return: Lua value "(\(%clauses joined with " and "))" parse [not all of %items, not all %items] as: not (all of %items) @@ -50,7 +50,7 @@ compile [any of %items, any %items] to unless: (%items' "type") is "List" return: Lua value "utils.any(\(%items as lua expr))" %clauses <- [] - for % in (%items' "value") + for % in %items lua> "table.insert(\%clauses, \(% as lua expr));" return: Lua value "(\(%clauses joined with " or "))" parse [none of %items, none %items] as: not (any of %items) @@ -58,14 +58,14 @@ compile [sum of %items, sum %items] to unless: (%items' "type") is "List" return: Lua value "utils.sum(\(%items as lua expr))" %clauses <- [] - for % in (%items' "value") + for % in %items lua> "table.insert(\%clauses, \(% as lua expr));" return: Lua value "(\(%clauses joined with " + "))" compile [product of %items, product %items] to unless: (%items' "type") is "List" return: Lua value "utils.product(\(%items as lua expr))" %clauses <- [] - for % in (%items' "value") + for % in %items lua> "table.insert(\%clauses, \(% as lua expr));" return: Lua value "(\(%clauses joined with " * "))" action [avg of %items, average of %items] -- cgit v1.2.3