From: xchaos <xchaos@4bb87942-c103-4e5a-b51c-0ebff58f8515>
Date: Thu, 24 Jan 2008 15:36:50 +0000 (+0000)
Subject: even more advanced hello world
X-Git-Url: https://git.harvie.cz/?a=commitdiff_plain;h=de48beef600fc5889f30b2094e392c1f5d8ed09a;p=svn%2FCll1h%2F.git

even more advanced hello world



git-svn-id: https://dev.arachne.cz/repos/cll1h/trunk@38 4bb87942-c103-4e5a-b51c-0ebff58f8515
---

diff --git a/cll1.h b/cll1.h
index 4dc23e1..e3911e1 100644
--- a/cll1.h
+++ b/cll1.h
@@ -46,7 +46,7 @@
 #define or ||
 #define TRUE 1
 #define FALSE 0
-#define MAYBE (int)((_srtime?0:(time(&_srtime),srandom(_srtime))),random()%2)
+#define MAYBE (int)((_srtime?random():(_srtime=time(NULL),srandom(_srtime),random()))%2)
 #define WHOKNOWS (int)(srandom(time(NULL)),random()%2)
 #define bool_str(I) (I?"TRUE":"FALSE")
 #define boolean int
diff --git a/demos/advanced-hello-world.c b/demos/advanced-hello-world.c
index 0c16665..e855e5e 100644
--- a/demos/advanced-hello-world.c
+++ b/demos/advanced-hello-world.c
@@ -5,5 +5,6 @@ program
  echo("Hello ",NULL," ","world","  ! ");
  print("Hello", "world",NULL,"!");
  
- print(MAYBE ? "Hello" : "Hi", WHOKNOWS ? "world" : "friend", MAYBE ? "!" : "?");
+ repeat(4) print((MAYBE ? "Hello" : "Hi"), (MAYBE ? "world" : "friend"), (MAYBE ? "!" : "?"));
+ repeat(4) print((WHOKNOWS ? "Hello" : "Hi"), (WHOKNOWS ? "world" : "friend"), (WHOKNOWS ? "!" : "?"));
 }