Data commit

Task/Number-reversal-game/Rascal/number-reversal-game.rascal

@@ -0,0 +1,37 @@
+import Prelude;
+import vis::Figure;
+import vis::Render;
+
+public void NumberReversalGame(){
+
+	//generate randomlist
+	L = [1..9];
+	score = 0;
+	randomlist = [];
+	while (L != []){
+		temp = takeOneFrom(L);
+		randomlist += temp[0];
+		L = temp[1];
+	}
+	
+	// user interaction
+	score = 0;
+	text1 = "";
+	figure =
+	box(vcat([
+		box(text(str(){
+			return "<randomlist>";})),
+		box(textfield("Insert number of digits you would like to reverse here.",
+			void(str s){
+				score += 1;
+				n = toInt(s);
+				spliced = slice(randomlist, 0, n);					
+				randomlist = reverse(spliced) + (randomlist - spliced);
+				},
+			fillColor("lightblue"))),
+		box(text(str(){
+			return ((randomlist == [1 .. 9]) ? "Well done! Your score: <score>." : "Keep going!");}))
+				]));
+	
+	render(figure);
+}