langs a-z

Task/Loops-Break/SNOBOL4/loops-break-1.sno

@@ -0,0 +1,5 @@
+	input(.random,io_findunit(),1,"/dev/urandom")
+while	&ALPHABET random @rand
+	output = rand = rand - (rand / 20) * 20
+	eq(rand,10)	 :f(while)
+end

Task/Loops-Break/SNOBOL4/loops-break-2.sno

@@ -0,0 +1,5 @@
+* rand(n) -> real x | 0 <= x < n
+-include 'random.sno'
+
+loop    ne(output = convert(rand(20)'integer'),10) :s(loop)
+end