Re: [shell-script] SUDOKILLER em bash

[Ernander (Nander)]

Boa!! Mas posta no paste in mano!!
Em 28/05/2013 18:14, "Alfredo Casanova" <address@hidden> escreveu:

> **
>
>
> Tava dando uma googlada e encontrei por aí:
> resolvi compartilhar aqui pra galera ver, se inspirar e discutir
>
> #!/usr/bin/env bash
>
>
> ################################################################################
> # #
> # SudoKiller 1.0 - Bash SuDoku solver #
> # #
> # NAME : sudokiller.sh #
> # VERSION : 1.0 #
> # CREATED DATE: 19/09/2005 #
> # LAST UPDATE : 20/09/2005 #
> # AUTHOR : Daniele Mazzocchio #
> # #
> # Fill the 'board' array with the SuDoku table, replacing the empty cells
> with #
> # zeroes, and run this script. #
> # #
> # Download sources
> <http://www.kernel-panic.it/software/sudokiller/sudokiller.tar.gz>
> #
>
> ################################################################################
>
> # This is the game board. Fill it with the puzzle you want to solve
> board=(0 6 0 1 0 4 0 5 0
> 0 0 8 3 0 5 6 0 0
> 2 0 0 0 0 0 0 0 1
> 8 0 0 4 0 7 0 0 6
> 0 0 6 0 0 0 3 0 0
> 7 0 0 9 0 1 0 0 4
> 5 0 0 0 0 0 0 0 2
> 0 0 7 2 0 6 9 0 0
> 0 4 0 5 0 8 0 7 0)
>
>
> ################################################################################
> # Constants definition #
>
> ################################################################################
> SIZE=9 # Width of the SuDoku board
> BOX_W=3 # Width of the inner boxes
> BOX_H=3 # Height of the inner boxes
> EMPTY=0 # Empty cells marker
>
> RET_OK=0 # Return value upon success
> RET_FAIL=1 # Return value upon failure
>
>
> ################################################################################
> # Functions #
>
> ################################################################################function
> guess () {
> # Test all candidate numbers for current cell until board is complete
> local index=$1 # Index of the cell to guess
>
> local row=$((index / SIZE )) # Row index of current cell
> local col=$((index % SIZE )) # Column index of current cell
> local i # Local counter variable
>
> # Check if $index is out of array bounds
> [[ $index -eq ${#board[@]} ]] && return $RET_OK
>
> # If the cell isn't empty, go on to the next one
> if [[ ${board[index]} -ne $EMPTY ]]; then
> guess $(( index + 1 ))
> return $?
> fi
>
> # Test all numbers from 1 to 9
> for ((i=1; i <= SIZE; i++)); do
> check $i $row $col && {
> # Assign $i to cell and go on to the next cell
> board[index]=$i
> guess $(( index + 1 )) && return $RET_OK
> }
> done
>
> # If all numbers fail, empty the cell and return RET_FAIL
> board[index]=$EMPTY
> return $RET_FAIL
> }
> function check () {
> # Check if a number is, according to Sudoku rules, a legal candidate for
> the
> # cell identified by its row and column indexes
> local num=$1 # Number to check
> local row=$2 # Cell's row index
> local col=$3 # Cell's column index
>
> local i # Local counter variable
>
> # Check if the cell's row contains num
> for i in ${board[@]:$(( row * SIZE )):SIZE}; do
> [[ $num -eq $i ]] && return $RET_FAIL
> done
>
> # Check if the cell's column contains num
> for (( i=col; i < ${#board[@]}; i+=SIZE )); do
> [[ $num -eq ${board[i]} ]] && return $RET_FAIL
> done
>
> # Get the top left corner indexes of the cell's 3x3 box
> local box_row=$(( $row - $row % BOX_H ))
> local box_col=$(( $col - $col % BOX_W ))
>
> # Check if the box contains num
> for (( r = 0; r < BOX_H; r++ )); do
> for i in ${board[@]:$(( box_col + (box_row + r) * SIZE )):BOX_W}; do
> [[ $num -eq $i ]] && return $RET_FAIL
> done
> done
>
> # If all previous tests have been passed, return RET_OK
> return $RET_OK
> }
>
>
> ################################################################################
> # Main #
>
> ################################################################################
>
> guess 0
> rc=$?
> if [[ $rc -eq $RET_OK ]]; then
> # Print the resulting board
> for i in ${!board[@]}; do
> [[ $(( i % SIZE )) -eq 0 ]] && \
> echo -n $'\n+---+---+---+---+---+---+---+---+---+\n|'
> echo -n " ${board[i]} |"
> done
> echo $'\n+---+---+---+---+---+---+---+---+---+\n'else
> echo "Sorry, solution not found..."fi
> exit $rc
>
> --
> []'s
> Alfredo Casanova
> Linux User #228230
> msn: address@hidden
> tel: +55 61 9655 9619
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>


[As partes desta mensagem que não continham texto foram removidas]