Isaac Hodes ihodes
ihodes
/ upload_and_post_vcf
Last active
August 29, 2015 14:22
— forked from smondet/upload_and_post_vcf
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #! /bin/sh | |
| SCRIPT_NAME=$(basename $0) | |
| short_usage() | |
| { | |
| echo "Cf : $SCRIPT_NAME [--help]" | |
| } | |
| long_usage() | |
| { |
ihodes
/ reversi-move-valid.clj
Created
May 1, 2012 00:10
— forked from mistercam/reversi-move-valid.clj
A function to determine if a move in Reversi is valid
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (def directions | |
| {:N [-1 0] :NE [-1 1] :E [0 1] :SE [1 1] :S [1 0] :SW [1 -1] :W [0 -1] :NW [-1 -1]}) | |
| (defn move-valid? [board piece move] | |
| "Returns true if the specified move for the specified piece will cause | |
| a piece to be flipped in any direction." | |
| (let [r (move 0) c (move 1)] | |
| (cond | |
| (or (> r 7) (< r 0) (> c 7) (< c 0)) nil | |
| (not= nil ((board r) c)) nil |