From 0c32a26c9a43b2d45968b9ac59b8916c1d4092d1 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sat, 2 Jan 2021 19:24:13 +0300
Subject: .

---
 examples/strfib.c | 53 -----------------------------------------------------
 1 file changed, 53 deletions(-)
 delete mode 100644 examples/strfib.c

(limited to 'examples/strfib.c')

diff --git a/examples/strfib.c b/examples/strfib.c
deleted file mode 100644
index 6e22c7f..0000000
--- a/examples/strfib.c
+++ /dev/null
@@ -1,53 +0,0 @@
-#include <csx/csx.h>
-#include <stdio.h>
-
-
-static csx_type_function_list     *l;
-static csx_type_function_string   *s;
-static csx_type_function_atom     *a;
-static csx_type_function_evaluate *e;
-
-static char *append;
-static char *define;
-static char *cdr;
-static char *ifx;
-static char *not;
-
-void printfibs(char *strfib)
-{
-    const char *input = "oooooooooo" + 9;
-    int i;
-    for (i = 0; i != 10; ++i)
-        puts(e(l(strfib, s(input - i), 0)));
-}
-
-void process()
-{
-    char *strfib   = a("strfib");
-    char *n        = a("n");
-    e(l(define, l(strfib, n, 0),
-        l(ifx, l(not, n, 0), s(""),
-            l(ifx, l(not, l(cdr, n, 0), 0), s("o"),
-                l(append, l(strfib, l(cdr, n, 0), 0),
-                          l(strfib, l(cdr, l(cdr, n, 0), 0), 0), 0),
-            0),
-        0),
-    0));
-    printfibs(strfib);
-}
-
-int main()
-{
-    l = csx_list;
-    s = csx_string;
-    a = csx_atom;
-    e = csx_evaluate;
-    append = a("append");
-    define = a("define");
-    cdr    = a("cdr");
-    ifx    = a("ifx");
-    not    = a("not");
-    process();
-    csx_free();
-    return 0;
-}
-- 
cgit v1.2.3