code guessing, round #70 (completed)

! Copyright (C) 2025 Aleksander "olus2000" Sabak.
! See https://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs concurrency.combinators http http.client http.json kernel math namespaces
sequences words ;
IN: esolang_games.code_guess.070


CONSTANT: game-url "https://codeguessing.gay/extra/game70"


! Game

CONSTANT: grid-width 15
CONSTANT: grid-height 5


: find-in-grid ( grid char -- coords? )
  swap index [ grid-width 1 + /mod swap 2array ] [ f ] if* ;


TUPLE: state player goal bomb seq score ;

USE: io

: <state> ( json -- state )
  [ "grid" of
    [ CHAR: @ find-in-grid ]
    [ CHAR: + find-in-grid ]
    [ CHAR: * find-in-grid ] tri ]
  [ "s" of ] [ "score" of ] tri state boa ;


USE: prettyprint


: bomb?-swap ( horisontal vertical state -- moves moves )
  dup bomb>>
  [ [ bomb>> ] [ player>> ] [ goal>> ] tri [ first2 ] tri@
    drop nipd -rot [ = ] 2bi@ or [ swap ] when ] [ drop ] if ;


: prepare-moves ( state -- moves-first moves-second )
  dup [ player>> ] [ goal>> ] bi [ first2 ] bi@ swapd [ - ] 2bi@
  [ [ abs ] [ 0 > ] bi "left" "right" ? <array> ]
  [ [ abs ] [ 0 > ] bi "up" "down" ? <array> ] bi*
  rot bomb?-swap ;


! Networking

SYMBOL: game-session


: +session-cookie ( request -- request' )
  game-session get "session" <cookie> put-cookie ;


: current-state ( -- state )
  game-url <get-request> +session-cookie
  http-request-json nip <state> ;


: move ( dir -- state )
  game-url "POST" <json-request>
  swap 'H{ { "dir" _ } } <json-data> >>data
  +session-cookie http-request-json nip <state> ;


: naive-step ( -- )
  current-state prepare-moves append [ move drop ] each ;


: async-step ( -- )
  current-state prepare-moves append
  [ move drop ] parallel-each ;


: parallel-moves ( moves -- state )
  [ move ] parallel-map [ seq>> ] maximum-by ;


: sequential-step ( state -- state )
  prepare-moves append parallel-moves ;


: n-steps ( n -- state )
  current-state swap [ sequential-step ] times ;


: sequential-bomb-avoiding-step ( state -- state )
  prepare-moves
  [ [ f ] [ parallel-moves ] if-empty ] bi@ swap or ;


: n-bomb-avoiding-steps ( n -- state )
  current-state swap
  [ sequential-bomb-avoiding-step ] times ;


: avoid-bombs-until ( n -- state )
  current-state swap '[ dup score>> _ < ]
  [ sequential-bomb-avoiding-step ] while ;

'use strict';
function findChar(grid, char) {
  var y = 0;
  for (let row of grid) {
    var x = 0;
    for (let c of row) {
      if (c === char) {
        return {
          x,
          y
        };
      }
      x++;
    }
    y++;
  }
  throw new Error("char " + char + "not found in grid");
}

function chooseDir(grid_) {
  const grid = grid_.split('\n');
  const playerPos = findChar(grid, '@');
  var closed = new Set([]);
  const hash = (x, y) => x + ' ' + y;
  var open = [{
    x: playerPos.x,
    y: playerPos.y,
    dir: null
  }];
  while (open.length > 0) {
    const {
      x,
      y,
      dir
    } = open.shift();
    if (closed.has(hash(x, y))) continue;
    closed.add(hash(x, y));
    const moves = [
      {nx: x - 1, ny: y, new_dir: 'left'},
      {nx: x + 1, ny: y, new_dir: 'right'},
      {nx: x, ny: y - 1, new_dir: 'up'},
      {nx: x, ny: y + 1, new_dir: 'down'},
    ];
    for (var {nx, ny, new_dir} of moves) {
      if (dir !== null) {
        new_dir = dir;
      }
      if (nx < 0 || nx >= 15 || ny < 0 || ny >= 5) continue;
      switch (grid[ny][nx]) {
        case '*':
          continue;
        case '+':
          return new_dir;
      }
      if (!closed.has(hash(nx, ny))) {
      open.push({
        x: nx,
        y: ny,
        dir: new_dir
      });
      }
    }
  }
  console.log(closed);
  throw new Error("unreachable");
}

async function scoreUntil(maxScore) {
  var dir = 'up';
  while (true) {
    const response = await fetch("/extra/game70", {
      method: "POST",
      body: JSON.stringify({
        dir
      }),
      headers,
    });
    const gameState = await response.json();
    renderGame(gameState);
    const {
      grid,
      s,
      score
    } = gameState;
    if (score >= maxScore) {
      return;
    }
    dir = chooseDir(grid);
  }
}
await scoreUntil(2024);

const find = (lines, c) => {
	for (let i = 0; i < lines.length; ++i) {
		let j = lines[i].indexOf(c);
		if (j >= 0) return [i, j];
	}
	return [null, null];
};
const press = (id, n_times) => {
	for (let i = 0; i < n_times; ++i)
		document.getElementById(id).click();
};
let old;
const doit = () => {
	const lines = document.getElementById("screen").innerHTML.split("<br>");
	let [py, px] = find(lines, "@");
	let [ty, tx] = find(lines, "+");
	let [oy, ox] = find(lines, "*");
	let neww = [[ty, tx], [oy, ox]];
	if (JSON.stringify(old) == neww) return;
	old = neww;
	if (tx == px && oy != py) {
		if (px == 0) {
			press("right", 1);
			px++;
		} else {
			press("left", 1);
			px--;
		}		
	}
	if (ty == py && ox != px) {
		if (py == 0) {
			press("down", 1);
			py++;
		} else {
			press("up", 1);
			py--;
		}
	}
	if (oy == ty) {
		press("left", px - tx);
		press("right", tx - px);
		press("up", py - ty);
		press("down", ty - py);
	} else {
		press("up", py - ty);
		press("down", ty - py);
		press("left", px - tx);
		press("right", tx - px);
	}
}
setInterval(doit, 1000);

#NoEnv
SendMode Input
SetWorkingDir %A_ScriptDir%

Xmove(x) {
	loop % abs(x) {
		if (x > 0) {
			MouseClick, L, 1082, 423
		} else {
			MouseClick, L, 855, 423
		}
		Sleep, 110
	}
	return
}
Ymove(y) {
	loop % abs(y) {
		if (y > 0) {
			MouseClick, L, 961, 501
		} else {
			MouseClick, L, 961, 342
		}
		Sleep, 110
	}
	return
}

^,::exitapp

$^.::
loop {
try {
MouseClickDrag, L, 872, 359, 1064, 490
clipboard := ""
Send ^c
ClipWait, 2
ard := clipboard
StringReplace, pbo, ard, `n, , All
StringReplace, cli, pbo, `r, , All

plus := InStr(cli, "+")
at := InStr(cli, "@")
bomb := InStr(cli, "*")
xdiff := mod(plus - 1, 15) - mod(at - 1, 15)
ydiff := floor((plus - 1) / 15) - floor((at - 1) / 15)

if (floor((at - 1) / 15) == floor((bomb - 1) / 15)) {
	if (floor((at - 1) / 15) == floor((plus - 1) / 15)) {
		if (floor((at - 1) / 15) == 0) {
			Ymove(1)
			Xmove(xdiff)
			Ymove(-1)
		} else {
			Ymove(-1)
			Xmove(xdiff)
			Ymove(1)
		}
	} else {
		Ymove(ydiff)
		Xmove(xdiff)
	}
} else {
	if ((mod(bomb - 1, 15) == mod(plus - 1, 15))) {
		if ((mod(bomb - 1, 15) == mod(at - 1, 15))) {
			if (mod(at - 1, 15) == 0) {
				Xmove(1)
				Ymove(ydiff)
				Xmove(-1)
			} else {
				Xmove(-1)
				Ymove(ydiff)
				Xmove(1)
			}
		} else {
			Ymove(ydiff)
			Xmove(xdiff)
		}
	} else {	
		Xmove(xdiff)
		Ymove(ydiff)
	}
}
}
Sleep, 500
}

const WIDTH  = 15;
const HEIGHT = 5;

function PosToX(pos) {
	return {
		x: pos % WIDTH,
		y: Math.floor(pos / WIDTH)
	};
}

function GetScreen() {
	return document.getElementById("screen").innerHTML.replaceAll("<br>", "");
}

let running = false;

let playerPos = PosToX(GetScreen().indexOf("@"));

function GoLeft() {
	document.getElementById("left").click();
	playerPos.x -= 1;
}

function GoRight() {
	document.getElementById("right").click();
	playerPos.x += 1;
}

function GoUp() {
	document.getElementById("up").click();
	playerPos.y -= 1;
}

function GoDown() {
	document.getElementById("down").click();
	playerPos.y += 1;
}

let reset = false;

function Move() {
	if (running) return;

	running = true;

	let screen = GetScreen();

	let foodPos = PosToX(screen.indexOf("+"));
	let bombPos = PosToX(screen.indexOf("*"));

	let moved = false;

	if (playerPos.x > foodPos.x) { // player is on the right
		if ((bombPos.y == playerPos.y) && (bombPos.x == playerPos.x - 1)) {
			if (foodPos.y > playerPos.y) {
				GoDown();
			}
			else {
				GoUp();
			}
		}

		GoLeft();
		moved = true;
	}
	else if (playerPos.x < foodPos.x) { // player is on the left
		if ((bombPos.y == playerPos.y) && (bombPos.x == playerPos.x + 1)) {
			if (foodPos.y > playerPos.y) {
				GoDown();
			}
			else {
				GoUp();
			}
		}

		GoRight();
		moved = true;
	}
	else if (playerPos.y > foodPos.y) { // player is below
		if ((bombPos.x == playerPos.x) && (bombPos.y == playerPos.y - 1)) {
			if (foodPos.x > playerPos.x) {
				GoRight();
			}
			else {
				GoLeft();
			}
		}

		GoUp();
		moved = true;
	}
	else if (playerPos.y < foodPos.y) { // player is above
		if ((bombPos.x == playerPos.x) && (bombPos.y == playerPos.y + 1)) {
			if (foodPos.x > playerPos.x) {
				GoRight();
			}
			else {
				GoLeft();
			}
		}

		GoDown();
		moved = true;
	}

	running = false;
}

window.setInterval(Move, 20);
// window.setInterval(Move, 100);

window.setInterval(function() {
	while (running) {}

	running = true;

	playerPos = PosToX(GetScreen().indexOf("@"));

	running = false;
}, 1000);

document.addEventListener("keydown", function(e) {
	console.log("key");
	if (e.keyCode == 38) {
		GoUp();
	}
	else if (e.keyCode == 40) {
		GoDown();
	}
	else if (e.keyCode == 37) {
		GoLeft();
	}
	else if (e.keyCode == 39) {
		GoRight();
	}
});

R={s:-1}
async function move(dir) {
    let r = await (await fetch("/extra/game70",{
        method: dir?"POST":"GET",
        body: dir && JSON.stringify({dir}),
        headers: {"Content-Type": "application/json"}
    })).json()
    renderGame(r)
    if (R.s<r.s) R=r
    return r;
}
async function step() {
    for (dir of create_path(R.grid))
        await Promise.all(dir.map(move));
}

function create_path(grid) {
    let at=grid.indexOf("@")
    let pl=grid.indexOf("+")
    let bo=grid.indexOf("*")

    let dy=(pl>>4)-(at>>4)
    let dx=pl%16-at%16
    let x = Array(dx>0?dx:-dx).fill(dx>0?"right":"left")
    let y = Array(dy>0?dy:-dy).fill(dy>0?"down":"up")
    return bo==-1 ? [x.concat(y)] :
        dx==0 && at%16==bo%16 ? [[pl%16?"left":"right"],y,[pl%16?"right":"left"]] :
        dy==0 && (at>>4)==(bo>>4) ? [[pl>>4?"up":"down"],x,[pl>>4?"down":"up"]] :
        (bo>>4)==(at>>4) || bo%16==pl%16 ? [y,x] : [x,y]
}

await move()
while (R.score<2025) await step()

import requests
cookies = {"session": "no"}
grid = requests.get("https://codeguessing.gay/extra/game70", cookies=cookies).json()["grid"].splitlines()
while True:
    us = [(x, y) for y in range(len(grid)) for x in range(len(grid[0])) if grid[y][x] == "@"][0]
    target = [(x, y) for y in range(len(grid)) for x in range(len(grid[0])) if grid[y][x] == "+"][0]
    hori = ["left"] * (us[0]-target[0]) + ["right"] * (target[0]-us[0])
    vert = ["up"] * (us[1]-target[1]) + ["down"] * (target[1]-us[1])
    plan = hori + vert

    x, y = us
    for v in plan:
        match v:
            case "up":
                y -= 1
            case "down":
                y += 1
            case "left":
                x -= 1
            case "right":
                x += 1
        if grid[y][x] == "*":
            plan = vert + hori
            break
                
    for v in plan:
        r = requests.post("https://codeguessing.gay/extra/game70", json={"dir": v}, cookies=cookies)
    grid = r.json()["grid"].splitlines()
    print(grid)

setInterval(ㅤ=>fetch("http://localhost:8080/execute", {
    method: "POST",
    headers: {
        "Content-Type": "application/json"
    },
    body: `{env:{SCREEN:"${E`screen`.textContent}"},source:${JSON.stringify(source)}}`
}).then(res => res.json().then(v => {
	s=E`screen`.textContent
	i=s.indexOf('@')
	if (s[i-1]=='*' || s[i+1]=='*') {
		v[0] && (v[0] == 1 ? d() : u())
		setTimeout(ㅤ=>v[1] && (v[1] == 1 ? r() : l()), 333)
	} else {
		v[1] && (v[1] == 1 ? r() : l())
		setTimeout(ㅤ=>v[0] && (v[0] == 1 ? d() : u()), 333)
	}
})), 999)

/*
	NL←⎕UCS 10

	]load HttpCommand
	HttpCommand.Fix 'https://raw.githubusercontent.com/Dyalog/Jarvis/master/Source/Jarvis.dyalog'

	∇ res←execute req
		{(,∘'←'¨ (⍎,)¨ ⍵(⎕SE.Dyalog.Utils.repObj⍎)¨⊢)⍵.⎕NL-⍳9}req.env
		lines←NL(≠⊆⊢)req.source
		⍎¨¯1↓lines
		res←⍎⊃⌽lines
	∇

	j←Jarvis.New ''
	(rc msg)←j.Start

*/

E=i=>document.getElementById(i)

HTML=document.documentElement.outerHTML
_=a=>HTML.match(new RegExp('id="('+a+'\\w+)"'))[1]
//////////////////////////// hiya, I'm jan Mase! :•)
d_=E(_`d`);d=ㅤ=>d_.click() // I'm new here, so... nice to meet ya. wanna be friends?
l_=E(_`l`);l=ㅤ=>l_.click() // this is an ice breaker. Sheer personality  on display.
r_=E(_`r`);r=ㅤ=>r_.click() // How about a self-assessment, too? might prove helpful.
u_=E(_`u`);u=ㅤ=>u_.click() // terse | consistent | exacting | illustrative | asinine
//////////////////////////// See you around, or not.
DO=(n,f)=>Array(n).fill(f).map(eval).filter(ㅤ=>typeof ㅤ== "function").map(ㅤ=>ㅤ())
DO(1012,'DO(14,l,DO(4,u,DO(14,r,d(DO(14,l,d(DO(14,r,d(DO(14,l,d(DO(14,r)))))))))))')

source=String.raw`
    AY AX←1+5 15⊤¯1+('@'=SCREEN)⍳1 ⍝ AT
    PY PX←1+5 15⊤¯1+('+'=SCREEN)⍳1 ⍝ PLUS
    BY BX←1+5 15⊤¯1+('*'=SCREEN)⍳1 ⍝ BOMB

    V←⍉¯1+3 3⊤0 1 2 3,¯5+⍳4 ⍝ VECTORS
    N←V+(⍴V)⍴AY,AX          ⍝ NEARBY
    B←∧/0<N                 ⍝ BORDER
    D←+/|((⍴A)⍴PY,PX)-A←B⌿N ⍝ DISTANCE
    U←∧/((⍴A)⍴BY,BX)=A←B⌿N  ⍝ UNSAFE
    W←(D×0=U)+1.79E308×U    ⍝ WEIGHTED
    M←(<\W=⌊/W)/⍳⍴W         ⍝ MIN
    K←(⍳2×+/B)∊(2×M)-0 1    ⍝ KEEP
    T←K/,B⌿V                ⍝ TARGET
    T
`

#include <u.h>
#include <libc.h>

// TODO : 👉👈 ?

#define CTLASK "url https://codeguessing.gay/extra/game70\n"
#define CTLASKB "contenttype application/json\n"

char *rights = "{\"dir\":\"right\"}";
char *ups    = "{\"dir\":\"up\"}   ";
char *lefts  = "{\"dir\":\"left\"} ";
char *downs  = "{\"dir\":\"down\"} ";
#define DIRLEN 15

char buf[1024];
char wbuf[1024];
long bufl = 0;
long wbufl = 0;

char grid[5*16];

void
unfold(char *jsons)
{
	if(strncmp(jsons, "{\"grid\":\"", 9) != 0)
		sysfatal("unfold: lyricaahlyyy!");
	jsons += 9;
	for(char *g=grid; g<grid+15*5; g+=15, jsons+=15+2)
		memcpy(g, jsons, 15);
}

enum dir { None, Right, Up, Left, Down };

void
move(enum dir d)
{
	/* oh, what an /u/t/t/e/r/ mess you're about to behold! */
	
	int ctl, fd;
	char *eyedi, *path, *ds;
	long eyedil, written;
	
	
	ctl = open("/mnt/web/clone", ORDWR);
		if(ctl < 0) sysfatal("%r");
	
	bufl = read(ctl, buf, 1024);
		if(bufl < 0) sysfatal("%r");
		if(bufl == 0) sysfatal("clone: unexpected EOF");
	// badd
	eyedil = (char*)memchr(buf, '\n', bufl)-buf;
		if(eyedil <= 0 || eyedil > 1024) sysfatal("clone: not given id");
	eyedi = malloc(eyedil);
		if(eyedi == 0) sysfatal("%r");
	memcpy(eyedi, buf, eyedil);
	
	written = write(ctl, CTLASK, strlen(CTLASK));
		if(written < strlen(CTLASK)) sysfatal("writing ctl 1st: %r");
	written = write(ctl, CTLASKB, strlen(CTLASKB));
		if(written < strlen(CTLASKB)) sysfatal("writing ctl 2nd: %r");
	
	
	if(d != None)
	{
		print("C");
		path = smprint("/mnt/web/%.*s/postbody", eyedil, eyedi);
		fd = open(path, OWRITE);
			if(fd < 0) sysfatal("%r");
		free(path);
		
		switch(d)
		{
			case Right: ds = rights; break;
			case Up:    ds = ups;    break;
			case Left:  ds = lefts;  break;
			case Down:  ds = downs;  break;
		}
		written = write(fd, ds, DIRLEN);
			if(written < DIRLEN) sysfatal("%r");
	//	written = write(fd, "", 0);
	//		if(written < 0) sysfatal("%r");
		
		close(fd);
	}
//	else
	{
		print("A");
		path = smprint("/mnt/web/%.*s/body", eyedil, eyedi);
		fd = open(path, OREAD);
			if(fd < 0) sysfatal("%r");
		free(path);
		print("b");
		bufl = read(fd, buf, 1024);
			if(bufl < 0) sysfatal("%r");
			if(bufl == 0) sysfatal("body: unexpected EOF");
		//	print("belly: %.*s\n", bufl, buf); /***/
		
		close(fd);
	}
	
	close(ctl);
}

void
debuggrid(void)
{
	print("\n%.15s\n%.15s\n%.15s\n%.15s\n%.15s\n", grid, grid+15, grid+30, grid+45, grid+60);
}

void
debuggridm(int mi)
{
	char gridm[5*15];
	memcpy(gridm, grid, 5*15);
	gridm[mi] = 'M';
	print("\n%.15s\n%.15s\n%.15s\n%.15s\n%.15s\n", gridm, gridm+15, gridm+30, gridm+45, gridm+60);
	
//	move(None);
//	unfold(buf);
//	debuggrid();
}

void
main(int argc, char *argv[])
{
	int mi, it, bo;
	enum dir d;
	
	while(1)
	{
		move(None);
		unfold(buf);
		
		bo = -1;
		for(int i=0; i<15*5; i++)
			switch(grid[i])
			{
				case '.':
					break;
				case '@':
					mi = i; break;
				case '+':
					it = i; break;
				case '*':
					bo = i; break;
				deault:
					sysfatal("unknown bohmbe: '%c'", grid[i]);
			}
		
		debuggridm(mi);
		
		while(mi/15 < it/15)
			if(mi+15 != bo)
				{ move(Down); mi+=15; debuggridm(mi); }
			else if(bo/15 == it/15)
			{
				move((bo%15 < it%15) ? Right : Left);
				move(Down);
				mi+=15;
				mi+=((bo%15 < it%15) ? 1 : -1);
				debuggridm(mi);
			}
			else
			{
				move((mi%15==0) ? Right : Left);
				move(Down); move(Down);
				move((mi%15==0) ? Left : Right);
				mi+=30;
				debuggridm(mi);
			}
		while(mi/15 > it/15)
			if(mi-15 != bo)
				{ move(Up); mi-=15; debuggridm(mi); }
			else if(bo/15 == it/15)
			{
				move((bo%15 < it%15) ? Right : Left);
				move(Up);
				mi-=15;
				mi+=((bo%15 < it%15) ? 1 : -1);
				debuggridm(mi);
			}
			else
			{
				move((mi%15==0) ? Right : Left);
				move(Up); move(Up);
				move((mi%15==0) ? Left : Right);
				mi-=30;
				debuggridm(mi);
			}
		while(mi%15 < it%15)
			if(mi+1 != bo)
				{ move(Right); mi+=1; debuggridm(mi); }
			else if(bo%15 == it%15)
			{
				move((bo/15 < it/15) ? Down : Up);
				move(Right);
				mi+=1;
				mi+=((bo/15 < it/15) ? 15 : -15);
				debuggridm(mi);
			}
			else
			{
				move((mi/15==0) ? Down : Up);
				move(Right); move(Right);
				move((mi/15==0) ? Up : Down);
				mi+=2;
				debuggridm(mi);
			}
		while(mi%15 > it%15)
			if(mi-1 != bo)
				{ move(Left); mi-=1; debuggridm(mi); }
			else if(bo%15 == it%15)
			{
				move((bo/15 < it/15) ? Down : Up);
				move(Left);
				mi-=1;
				mi+=((bo/15 < it/15) ? 15 : -15);
				debuggridm(mi);
			}
			else
			{
				move((mi/15==0) ? Down : Up);
				move(Left); move(Left);
				move((mi/15==0) ? Up : Down);
				mi-=2;
				debuggridm(mi);
			}
		
	//	debuggridm(mi);
	}
	
	exits(nil);
}

// hihi ^^