Debug game: now just represent share and cheated as bits

prozacchiwawa · prozacchiwawa · commit e51b9c76147f · 2024-05-13T08:27:44.000-07:00
diff --git a/resources/debug_game_handler.clsp b/resources/debug_game_handler.clsp
@@ -22,13 +22,7 @@
   )
 
 (defun get-move-share (new-move)
-  (assign
-    len (strlen new-move)
-    (if (> len 1)
-      (substr new-move 1 (strlen new-move))
-      ()
-      )
-    )
+  (ash new_move -1)
   )
 
 (defun validation_program (validation-data)

Original file line number	Diff line number	Diff line change
`@@ -22,13 +22,7 @@`
`22`	`22`	`)`
`23`	`23`
`24`	`24`	`(defun get-move-share (new-move)`
`25`		`- (assign`
`26`		`- len (strlen new-move)`
`27`		`- (if (> len 1)`
`28`		`- (substr new-move 1 (strlen new-move))`
`29`		`- ()`
`30`		`- )`
`31`		`- )`
	`25`	`+ (ash new_move -1)`
`32`	`26`	`)`
`33`	`27`
`34`	`28`	`(defun validation_program (validation-data)`