Where is the Arrow Pointing?
commit
c8a3f4fb74
@ -0,0 +1 @@
|
||||
Chanllenge rules are there: http://codegolf.stackexchange.com/questions/57952/where-is-the-arrow-pointing
|
||||
@ -0,0 +1,3 @@
|
||||
d s<+S+--V
|
||||
||| Q
|
||||
-++
|
||||
@ -0,0 +1,206 @@
|
||||
<?php
|
||||
/*
|
||||
* By Gnieark https://blog-du-grouik.tinad.fr oct 2015
|
||||
* Anwser to "code golf" http://codegolf.stackexchange.com/questions/57952/where-is-the-arrow-pointing in PHP
|
||||
*/
|
||||
|
||||
//ouvrir le fichier contenant la "carte et l'envoyer dans un array 2 dimmension
|
||||
$mapLines=explode("\n",file_get_contents('./input.txt'));
|
||||
$i=0;
|
||||
foreach($mapLines as $ligne){
|
||||
$map[$i]=str_split($ligne,1);
|
||||
if((!isset($y)) && in_array('S',$map[$i])){
|
||||
//tant qu'à parcourir la carte, on cherche le "S" s'il n'a pas déjà été trouvé.
|
||||
$y=$i;
|
||||
$x=array_search('S',$map[$i]);
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
if(!isset($y)){
|
||||
echo "Il n'y a pas de départ S dans ce parcours";
|
||||
die;
|
||||
}
|
||||
echo "\n".file_get_contents('./input.txt')."\nLe départ est aux positions ".$map[$y][$x]." [".$x.",".$y."]. Démarrage du script...\n";
|
||||
|
||||
$previousX=-1; // Contiendra l'ordonnée de la position précédente. (pour le moment, une valeur incohérente)
|
||||
$previousY=-1; // Contiendra l'absycede la position précédente. (pour le moment, une valeur incohérente)
|
||||
$xMax=count($map[0]) -1;
|
||||
$yMax=count($map) -1;
|
||||
$previousCrosses=array(); //On ne gardera en mémoire que les croisements, pas l'ensemble du chemin.
|
||||
|
||||
while(1==1){ // C'est un défi de codagee, pas un script qui sera en prod. j'assume.
|
||||
switch($map[$y][$x]){
|
||||
case "S":
|
||||
//même fonction que "+"
|
||||
case "+":
|
||||
//on peut aller dans les 4 directions
|
||||
$target=whereToGoAfterCross($x,$y,$previousX,$previousY);
|
||||
if($target){
|
||||
go($target[0],$target[1]);
|
||||
}else{
|
||||
goToPreviousCross();
|
||||
}
|
||||
break;
|
||||
case "s":
|
||||
goToPreviousCross();
|
||||
break;
|
||||
case "-":
|
||||
//déplacement horizontal
|
||||
if($previousX < $x){
|
||||
//vers la droite
|
||||
$targetX=$x+1;
|
||||
if(in_array($map[$y][$targetX],array('-','+','S','>','^','V'))){
|
||||
go($targetX,$y);
|
||||
}else{
|
||||
//On est dans un cul de sac
|
||||
goToPreviousCross();
|
||||
}
|
||||
}else{
|
||||
//vers la gauche
|
||||
$targetX=$x-1;
|
||||
if(in_array($map[$y][$targetX],array('-','+','S','<','^','V'))){
|
||||
go($targetX,$y);
|
||||
}else{
|
||||
//On est dans un cul de sac
|
||||
goToPreviousCross();
|
||||
}
|
||||
}
|
||||
break;
|
||||
case "|":
|
||||
//déplacement vertical
|
||||
if($previousY < $y){
|
||||
//on descend (/!\ y augmente vers le bas de la carte)
|
||||
$targetY=$y+1;
|
||||
if(in_array($map[$targetY][$x],array('|','+','S','>','<','V'))){
|
||||
go ($x,$targetY);
|
||||
}else{
|
||||
goToPreviousCross();
|
||||
}
|
||||
}else{
|
||||
//on Monte (/!\ y augmente vers le bas de la carte)
|
||||
$targetY=$y - 1;
|
||||
if(in_array($map[$targetY][$x],array('|','+','S','>','<','V'))){
|
||||
go ($x,$targetY);
|
||||
}else{
|
||||
goToPreviousCross();
|
||||
}
|
||||
}
|
||||
break;
|
||||
|
||||
case "^":
|
||||
case "V":
|
||||
case ">":
|
||||
case "<":
|
||||
wheAreOnAnArrow($map[$y][$x]);
|
||||
break;
|
||||
}
|
||||
}
|
||||
function wheAreOnAnArrow($arrow){
|
||||
|
||||
global $x,$y,$xMax,$yMax,$map;
|
||||
switch($arrow){
|
||||
case "^":
|
||||
$targetX=$x;
|
||||
$targetY=$y -1;
|
||||
$charsOfTheLoose=array(" ","V","-","s");
|
||||
break;
|
||||
case "V":
|
||||
$targetX=$x;
|
||||
$targetY=$y + 1;
|
||||
$charsOfTheLoose=array(" ","^","-","s");
|
||||
break;
|
||||
case ">":
|
||||
$targetX=$x + 1;
|
||||
$targetY=$y;
|
||||
$charsOfTheLoose=array(" ","<","|","s");
|
||||
break;
|
||||
case "<":
|
||||
$targetX=$x - 1;
|
||||
$targetY=$y;
|
||||
$charsOfTheLoose=array(" ",">","|","s");
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if(($targetX <0) OR ($targetY<0) OR ($targetX>$xMax) OR ($targetY>$yMax) OR (in_array($map[$targetY][$targetX],$charsOfTheLoose))){
|
||||
//on sort du cadre ou on tombe sur un caractere inadapté
|
||||
goToPreviousCross();
|
||||
}else{
|
||||
if(preg_match("/^[a-z]$/",strtolower($map[$targetY][$targetX]))){
|
||||
//WIN
|
||||
echo "WIN: ".$map[$targetY][$targetX]."\n";
|
||||
die;
|
||||
}else{
|
||||
//on va sur la cible
|
||||
go($targetX,$targetY);
|
||||
}
|
||||
}
|
||||
}
|
||||
function whereToGoAfterCross($xCross,$yCross,$previousX,$previousY){
|
||||
|
||||
//haut
|
||||
if(canGoAfterCross($xCross,$yCross +1 ,$xCross,$yCross,$previousX,$previousY)){
|
||||
return array($xCross,$yCross +1);
|
||||
}elseif(canGoAfterCross($xCross,$yCross -1 ,$xCross,$yCross,$previousX,$previousY)){
|
||||
//bas
|
||||
return array($xCross,$yCross -1);
|
||||
}elseif(canGoAfterCross($xCross-1,$yCross,$xCross,$yCross,$previousX,$previousY)){
|
||||
//gauche
|
||||
return array($xCross-1,$yCross);
|
||||
}elseif(canGoAfterCross($xCross+1,$yCross,$xCross,$yCross,$previousX,$previousY)){
|
||||
//droite
|
||||
return array($xCross+1,$yCross);
|
||||
}else{
|
||||
//pas de direction possible
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
function canGoAfterCross($xTo,$yTo,$xNow,$yNow,$xPrevious,$yPrevious){
|
||||
global $previousCrosses,$xMax,$yMax,$map;
|
||||
if(($xTo < 0) OR ($yTo < 0) OR ($xTo >= $xMax) OR ($yTo >= $yMax)){return false;}// ça sort des limites de la carte
|
||||
if(
|
||||
($map[$yTo][$xTo]==" ") // on ne va pas sur un caractere vide
|
||||
OR (($xTo==$xPrevious)&&($yTo==$yPrevious)) //on ne peut pas revenir sur nos pas (enfin, ça ne servirait à rien dans cet algo)
|
||||
OR (($xTo==$xNow)&&($map[$yTo][$xTo]=="-")) //Déplacement vertical, le caractere suivant ne peut etre "-"
|
||||
OR (($yTo==$yNow)&&($map[$yTo][$xTo]=="|")) // Déplacement horizontal, le caractère suivant ne peut être "|"
|
||||
OR ((isset($previousCrosses[$xNow."-".$yNow])) && (in_array($xTo."-".$yTo,$previousCrosses[$xNow."-".$yNow]))) //croisement, ne pas prendre une direction déjà prise
|
||||
){
|
||||
return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
function go($targetX,$targetY){
|
||||
global $previousX,$previousY,$x,$y,$previousCrosses,$map;
|
||||
if(($map[$y][$x]=='S')OR ($map[$y][$x]=='+')){
|
||||
//on enregistre le croisement dans lequel on renseigne la direction prise et la direction d'origine
|
||||
$previousCrosses[$x."-".$y][]=$previousX."-".$previousY;
|
||||
$previousCrosses[$x."-".$y][]=$targetX."-".$targetY;
|
||||
}
|
||||
$previousX=$x;
|
||||
$previousY=$y;
|
||||
$x=$targetX;
|
||||
$y=$targetY;
|
||||
//debug
|
||||
echo "deplacement en ".$x.";".$y."\n";
|
||||
}
|
||||
function goToPreviousCross(){
|
||||
global $x,$y,$previousX,$previousY,$xMax,$yMax,$previousCrosses;
|
||||
|
||||
/*
|
||||
* On va remonter aux précédents croisements jusqu'à ce
|
||||
* qu'un nouveau chemin soit exploitable
|
||||
*/
|
||||
foreach($previousCrosses as $key => $croisement){
|
||||
list($crossX,$crossY)=explode("-",$key);
|
||||
$cross=whereToGoAfterCross($crossX,$crossY,-1,-1);
|
||||
if($cross){
|
||||
go($crossX,$crossY);
|
||||
return true;
|
||||
}
|
||||
}
|
||||
//si on arrive là c'est qu'on est bloqués
|
||||
echo "Aucun chemin n'est possible\n";
|
||||
die;
|
||||
}
|
||||
@ -0,0 +1,144 @@
|
||||
<?php
|
||||
/*
|
||||
* By Gnieark https://blog-du-grouik.tinad.fr oct 2015
|
||||
* Anwser to "code golf" http://codegolf.stackexchange.com/questions/57952/where-is-the-arrow-pointing in PHP
|
||||
* short version
|
||||
*/
|
||||
$a=explode("\n",file_get_contents('./input.txt'));
|
||||
$i=0;
|
||||
foreach($a as $b){
|
||||
$c[$i]=str_split($b,1);
|
||||
if((!isset($y)) && in_array('S',$c[$i])){
|
||||
$y=$i;
|
||||
$x=array_search('S',$c[$i]);
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
if(!isset($y)){
|
||||
echo "Il n'y a pas de départ S dans ce parcours";
|
||||
die;
|
||||
}
|
||||
echo "\n".file_get_contents('./input.txt')."\nLe départ est aux positions ".$c[$y][$x]." [".$x.",".$y."]. Démarrage du script...\n";
|
||||
$d=-1;
|
||||
$e=-1;
|
||||
$f=count($c[0]) -1;
|
||||
$g=count($c) -1;
|
||||
$h=array();
|
||||
while(1==1){
|
||||
switch($c[$y][$x]){
|
||||
case "S":
|
||||
case "+":
|
||||
$j=a($x,$y,$d,$e);
|
||||
if($j){ c($j[0],$j[1]);}
|
||||
else{b();}
|
||||
break;
|
||||
case "s":
|
||||
b();
|
||||
break;
|
||||
case "-":
|
||||
if($d < $x){
|
||||
$k=$x+1;
|
||||
if(in_array($c[$y][$k],array('-','+','S','>','^','V'))){c($k,$y);}
|
||||
else{b();}
|
||||
}else{
|
||||
$k=$x-1;
|
||||
if(in_array($c[$y][$k],array('-','+','S','<','^','V'))){c($k,$y);}
|
||||
else{b();}
|
||||
}
|
||||
break;
|
||||
case "|":
|
||||
if($e < $y){
|
||||
$l=$y+1;
|
||||
if(in_array($c[$l][$x],array('|','+','S','>','<','V'))){c ($x,$l);}
|
||||
else{b();}
|
||||
}else{
|
||||
$l=$y - 1;
|
||||
if(in_array($c[$l][$x],array('|','+','S','>','<','V'))){c ($x,$l);}else{b();}
|
||||
}
|
||||
break;
|
||||
case "^":
|
||||
case "V":
|
||||
case ">":
|
||||
case "<":
|
||||
d($c[$y][$x]);
|
||||
break;
|
||||
}
|
||||
}
|
||||
function d($m){
|
||||
global $x,$y,$f,$g,$c;
|
||||
switch($m){
|
||||
case "^":
|
||||
$k=$x;
|
||||
$l=$y -1;
|
||||
$n=array(" ","V","-","s");
|
||||
break;
|
||||
case "V":
|
||||
$k=$x;
|
||||
$l=$y + 1;
|
||||
$n=array(" ","^","-","s");
|
||||
break;
|
||||
case ">":
|
||||
$k=$x + 1;
|
||||
$l=$y;
|
||||
$n=array(" ","<","|","s");
|
||||
break;
|
||||
case "<":
|
||||
$k=$x - 1;
|
||||
$l=$y;
|
||||
$n=array(" ",">","|","s");
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
if(($k <0) OR ($l<0) OR ($k>$f) OR ($l>$g) OR (in_array($c[$l][$k],$n))){b();}else{
|
||||
if(preg_match("/^[a-z]$/",strtolower($c[$l][$k]))){
|
||||
echo "WIN: ".$c[$l][$k]."\n";
|
||||
die;
|
||||
}else{c($k,$l);}
|
||||
}
|
||||
}
|
||||
function a($xCross,$yCross,$d,$e){
|
||||
if(e($xCross,$yCross +1 ,$xCross,$yCross,$d,$e)){return array($xCross,$yCross +1);}
|
||||
elseif(e($xCross,$yCross -1 ,$xCross,$yCross,$d,$e)){return array($xCross,$yCross -1);}
|
||||
elseif(e($xCross-1,$yCross,$xCross,$yCross,$d,$e)){return array($xCross-1,$yCross);}
|
||||
elseif(e($xCross+1,$yCross,$xCross,$yCross,$d,$e)){return array($xCross+1,$yCross);}
|
||||
else{return false;}
|
||||
}
|
||||
function e($o,$p,$q,$r,$s,$t){
|
||||
global $h,$f,$g,$c;
|
||||
if(($o < 0) OR ($p < 0) OR ($o >= $f) OR ($p >= $g)){return false;}
|
||||
if(
|
||||
($c[$p][$o]==" ")
|
||||
OR (($o==$s)&&($p==$t))
|
||||
OR (($o==$q)&&($c[$p][$o]=="-"))
|
||||
OR (($p==$r)&&($c[$p][$o]=="|"))
|
||||
OR ((isset($h[$q."-".$r])) && (in_array($o."-".$p,$h[$q."-".$r])))
|
||||
){return false;}
|
||||
return true;
|
||||
}
|
||||
|
||||
function c($k,$l){
|
||||
global $d,$e,$x,$y,$h,$c;
|
||||
if(($c[$y][$x]=='S')OR ($c[$y][$x]=='+')){
|
||||
$h[$x."-".$y][]=$d."-".$e;
|
||||
$h[$x."-".$y][]=$k."-".$l;
|
||||
}
|
||||
$d=$x;
|
||||
$e=$y;
|
||||
$x=$k;
|
||||
$y=$l;
|
||||
echo "deplacement en ".$x.";".$y."\n";
|
||||
}
|
||||
function b(){
|
||||
global $x,$y,$d,$e,$f,$g,$h;
|
||||
foreach($h as $v => $u){
|
||||
list($w,$z)=explode("-",$v);
|
||||
$aa=a($w,$z,-1,-1);
|
||||
if($aa){
|
||||
c($w,$z);
|
||||
return true;
|
||||
}
|
||||
}
|
||||
echo "Aucun chemin n'est possible\n";
|
||||
die;
|
||||
}
|
||||
Loading…
Reference in New Issue