Number reversal game: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,931: / Line 2,931: @@
 ───────── Your score was 12
+</pre>
+=={{header|Ring}}==
+<lang ring>
+# Project : Number reversal game
+# Date    : 2017/12/02
+# Author : Gal Zsolt (~ CalmoSoft ~)
+# Email   : <calmosoft@gmail.com>
+rever = [1, 2, 3, 4, 5, 6, 7, 8, 9]
+leftrever = []
+for n = 1 to len(rever)
+      rnd = random(8) + 1
+      temp = rever[n]
+      rever[n] = rever[rnd]
+      rever[rnd] = temp
+next
+see rever
+see nl
+while true
+          num = 0
+          leftrever = []
+          showarray(rever)
+          see " : Reverse how many = "
+          give r
+          r = number(r)
+          for n = 1 to r
+                add(leftrever, rever[n])
+          next
+          leftrever = reverse(leftrever)
+          for pos = 1 to r
+                rever[pos] = leftrever[pos]
+          next
+          //see rever + nl
+          for m = 1 to len(rever)
+               if rever[m] = m
+                  num = num + 1
+               ok
+          next
+          if num = 9
+             exit
+          ok
+end
+see "You took " + num + " attempts." + nl
+func swap(a, b)
+        temp = a
+        a = b
+        b = temp
+        return [a, b]
+func showarray(vect)
+        svect = ""
+        for n = 1 to len(vect)
+              svect = svect + vect[n] + " "
+        next
+        svect = left(svect, len(svect) - 2)
+        see svect
+</lang>
+Output:
+<pre>
+2 3 1 5 8 6 4 9 : Reverse how many? 6
+5 1 3 2 7 6 4 9 : Reverse how many? 8
+6 7 2 3 1 5 8 9 : Reverse how many? 3
+6 4 2 3 1 5 8 9 : Reverse how many? 7
+1 3 2 4 6 7 8 9 : Reverse how many? 5
+2 3 1 5 6 7 8 9 : Reverse how many? 4
+3 2 4 5 6 7 8 9 : Reverse how many? 3
+3 1 4 5 6 7 8 9 : Reverse how many? 2
+2 1 4 5 6 7 8 9 : Reverse how many? 3
+You took 9 attempts.
 </pre>