From 8777ff071f7bb37631baa7b6717ad29961e50911 Mon Sep 17 00:00:00 2001 From: "H.J" Date: Wed, 9 Oct 2024 11:36:55 -0400 Subject: sorting by language --- leetcode/lc-999-available-captures.rkt | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 leetcode/lc-999-available-captures.rkt (limited to 'leetcode/lc-999-available-captures.rkt') 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 -- cgit v1.2.3