Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Nested-templated-data/Factor/nested-templated-data.factor
+++ b/Task/Nested-templated-data/Factor/nested-templated-data.factor
@ -0,0 +1,18 @@
+USING: formatting kernel literals math sequences sequences.deep ;
+IN: rosetta-code.nested-template-data
+
+CONSTANT: payloads $[ 7 <iota> [ "Payload#%d" sprintf ] map ]
+
+: insert-payloads ( template -- data-structure )
+    [ dup fixnum? [ payloads ?nth ] when ] deep-map ;
+
+{ { { 1 2 }
+    { 3 4 1 }
+    5 } }
+
+{ { { 1 2 }
+    { 10 4 1 }
+    5 } }
+
+[ dup insert-payloads "Template: %u\nData Structure: %u\n"
+printf ] bi@