blob: 206392cb65694e080fc23c10dc2ece6b6be09a39 (
plain)
1
2
3
4
5
6
7
|
#lang racket
(define/contract (square-is-white coordinates)
(-> string? boolean?)
(define file (first (string->list coordinates)))
(define rank (second (string->list coordinates)))
(or (and (odd? (char->integer file)) (even? (char->integer rank)))
(and (even? (char->integer file)) (odd? (char->integer rank)))))
|
