diff options
author | dozens | 2024-06-20 09:17:06 -0600 |
---|---|---|
committer | dozens | 2024-06-20 09:17:06 -0600 |
commit | c7b2c982004e350f5e3032321baadfc9021b6bad (patch) | |
tree | 3f8883c94bed5a1f847cf60cb11207ca53946c67 /lib/game/no-moves.fnl | |
parent | ce09973e7cacccdc779f91b8e6e48a520b9f9f4d (diff) |
🗄️ big tidy up
- isolate core game logic and move it to src/game.fnl - main.fnl should be just the ui now - move all table funcs into lib/table - move all (1) string funcs into lib/string - move all game funcs into lib/game/
Diffstat (limited to 'lib/game/no-moves.fnl')
-rw-r--r-- | lib/game/no-moves.fnl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/lib/game/no-moves.fnl b/lib/game/no-moves.fnl new file mode 100644 index 0000000..02482cc --- /dev/null +++ b/lib/game/no-moves.fnl @@ -0,0 +1,26 @@ +(local {: tail} (require :lib.table)) + +(fn get-player-idxs [player moves] + (icollect [i p (ipairs moves)] (when (= p player) i))) + +(fn idx-to-neighbors [idxs all-neighbors] + (icollect [_ i (ipairs idxs)] (tail (. all-neighbors i)))) + +(fn neighbor-is-occupied? [neighbors moves] + (icollect [_ move (ipairs neighbors)] + (icollect [_ neighbor (ipairs move)] + (not= (. moves neighbor) 0)))) + +(fn reduce-to-bool [xs] + (accumulate [acc true + _ x (ipairs xs)] + (and x))) + +(fn no-moves? [neighbors all-moves player] + (-> (get-player-idxs player all-moves) + (idx-to-neighbors neighbors) + (neighbor-is-occupied? all-moves) + (reduce-to-bool) + (reduce-to-bool))) + +{: no-moves? } |