YAPC::EU 2018 Glasgow Update!

This commit is contained in:
Ingy döt Net 2018-08-17 15:15:24 +01:00
parent 22f33d4004
commit 4e2d22a71d
1170 changed files with 15042 additions and 3047 deletions

View file

@ -0,0 +1,4 @@
1:"d">>048*"neewteb rebmun a sseuG">:#,_$\:.\"d na",,\,,:.55+,\-88+0v
<*2\_$\1+%+48*">",,#v>#+:&#>#5-:!_0`00p0"hgih"00g>_0"wol"00g!>_48vv1?
\1-:^v"d correctly!"<^,,\,+55,". >"$_,#!>#:<"Your guess was too"*<>+>
:#,_@>"ess" >"eug uoY">

View file

@ -0,0 +1,13 @@
(let ((num (1+ (random 100))))
(princ "Guess the no: ")
(loop
(setq guess (read))
(cond
((not (numberp guess)) (print "Please enter a number"))
((eq guess num)
(progn (princ-list "Guess was right! " num)
(return)))
((> guess num)
(print "Too High!"))
((< guess num)
(print "Too low!"))) ) )