diff options
Diffstat (limited to 'leetcode/lc-999-available-captures.rkt')
-rw-r--r-- | leetcode/lc-999-available-captures.rkt | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/leetcode/lc-999-available-captures.rkt b/leetcode/lc-999-available-captures.rkt deleted file mode 100644 index 1b1a3a9..0000000 --- a/leetcode/lc-999-available-captures.rkt +++ /dev/null @@ -1,28 +0,0 @@ -#lang racket -(define/contract (num-rook-captures board) - (-> (listof (listof string?)) exact-integer?) - - (define (get-rook-space [board-state board]) - (for/or ([board-rank (in-list board-state)] - [rank (in-range 0 (length board-state))] - #:when (index-of board-rank "R")) - (list rank (index-of board-rank "R")))) - - (define (check-for-capturable-pawns spaces) - (match spaces - [(list _ ... "p" "." ... "R" "." ... "p" _ ...) 2] - [(list _ ... "R" "." ... "p" _ ...) 1] - [(list _ ... "p" "." ... "R" _ ...) 1] - [_ 0])) - - (define (check-rank rank [board-state board]) - (let ([spaces (list-ref board-state rank)]) - (check-for-capturable-pawns spaces))) - - (define (check-file file [board-state board]) - (let ([spaces (map (curryr list-ref file) board)]) - (check-for-capturable-pawns spaces))) - - (match (get-rook-space board) - [(list rank file) (+ (check-rank rank) - (check-file file))]))
\ No newline at end of file |