bugfix repeat,for_range + 2 new demos

[svn/Cll1h/.git] / demos / stromecek.c

diff --git a/demos/stromecek.c b/demos/stromecek.c
new file mode 100644 (file)
index 0000000..a2d867a
--- /dev/null
+++ b/demos/stromecek.c
@@ -0,0 +1,18 @@
+#include "cll1.h"
+
+program
+{
+ const int kmen=28;
+ int jehlici=0,vetev=0,stromecek=2;
+
+ while(jehlici<=kmen)
+ {
+  repeat(kmen-jehlici) printf(" ");
+  printf("/");
+  repeat(jehlici<<1) if (jehlici<kmen && vetev<stromecek-1) then printf(" "); else printf("_");
+  printf("\\\n");
+  if(++vetev<stromecek) then jehlici++; else jehlici-=vetev>>1,vetev=0,stromecek++;
+ }
+ repeat(kmen) printf(" ");
+ printf("||\n");
+}