From 0b4de175110bdf6ffaeb0ba3b86053fd2fec78be Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Mon, 4 Jan 2021 01:25:44 +0300 Subject: . --- examples/generated.csx | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'examples/generated.csx') diff --git a/examples/generated.csx b/examples/generated.csx index bddb2ed..cb2557c 100644 --- a/examples/generated.csx +++ b/examples/generated.csx @@ -1,7 +1,17 @@ -[set map [fn [f l] [if [same l []] [] +[set no [fn [x] [same x []]]] +[set outint [fn [n] [if [< n 0] + [do [out 45] [outint [neg n]]] + [if [< n 10] + [out [+ 48 n]] + [do + [outint [div n 10]] + [out [+ 48 [mod n 10]]] + ] + ] +]]] +[set map [fn [f l] [if [no l] [] [pair [f [head l]] [map f [tail l]]] ]]] - -[map [fn [n] [sum n 10]] - [quote [1 2 3 4 5]] +[map [fn [n] [outint n] [out 10]] + [quote [99 37 73 42]] ] -- cgit v1.2.3