1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
const n=100;
var a1,a5,a10,a25,a50,anz:integer;
begin
   anz:=0;
   for a1:=0 to n do
       for a5:=0 to n div 5 do
           for a10:=0 to n div 10 do
               for a25:=0 to n div 25 do
                   for a50:=0 to n div 50 do
                       if a1+5*a5+10*a10+25*a25+50*a50=n then inc(anz);
   // Ausgabe der Größe von anz
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var m : array[1..100] of integer;
function anz(n,k: integer): integer;
begin
   if (n < 0) or (k = 0) then anz := 0
       else if n = 0 then anz := 1
           else anz := anz(n,k-1) + anz(n-m[k],k);
end;
procedure Geldwechsel;
var a,n,k : integer;
begin
   n := 100; //Zielwert eingeben
   m[1]:=1; m[2]:=5; m[3]:=10; m[4]:=25; m[5]:=50; //evtl. weiter
   k := 5; //Anzahl der Münzen
   a := anz(n,k);
   // Ausgabe der Möglichkeiten a
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

1.Fall e = 2 … ergibt 1 Lösung mit 2 x 50 Kreuzern

2.Fall e = 1 … d.h. a + 5b + 10c + 25d = 50

2.1.  d = 2 … ergibt 1 Lösung mit 1 x 50 und 2 x 25

2.2.  d = 1 … d.h. a + 5b + 10c = 25
  hier kann c die Werte 2,1,0 annehmen.
  für c = 2 wird a + 5b = 5 mit 2 Lösungen für (a,b) = {(5,0),(0,1)}
  für c = 1 wird a + 5b = 15 mit 4 Lösungen für (a,b) = {(15,0),(10,1),(5,2),(0,3)}
  für c = 0 wird a + 5b = 25 analog 6 Lösungen für (a,b) ; b=0,1,2,3,4,5

2.3.  d = 0 … a + 5b + 10c = 50 (analog zu oben)
  mit c = 5,4,…,1,0 und 1, 3, 5, 7, 9, 11 Lösungen für (a,b) = 36 Lösungen

3.Fall e = 0 … a + 5b + 10c + 25 d = 100

3.1.  d = 4 … 1 Lösung (a,b)
3.2.  d = 3 … analog zu oben, 12 Lösungen (a,b)
3.3.  d = 2 … analog zu oben, 36 Lösungen (a,b)
3.4.  d = 1 … analog zu oben, 72 Lösungen (a,b)
3.5.  d = 0 … analog zu oben, 121 Lösungen (a,b)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

#include <stdio.h>

int main() {
  int a, b, c, d, e, res = 0;
  for(a=0; a<=100; a+= 1)
  for(b=0; b<=100; b+= 5)
  for(c=0; c<=100; c+=10)
  for(d=0; d<=100; d+=25)
  for(e=0; e<=100; e+=50)
    if( a+b+c+d+e == 100 ) res++;
  printf( "res: %i\n", res );
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

TForm1.Button1Click(Sender: TObject);
var anzahl:word;einer,fuenfer,zehner,fuenfundzwanziger,fuenfziger:byte;
begin
anzahl:=0;
for einer:=0 to 100 do
  for fuenfer:=0 to 20 do
    for zehner:=0 to 10 do
      for fuenfundzwanziger:=0 to 4 do
        for fuenfziger:=0 to 2 do
          if einer+5*fuenfer+10*zehner+25*fuenfundzwanziger+50*fuenfziger=100 then
            begin
            inc(Anzahl);
            Caption:=inttostr(Anzahl)
            end
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

static int AnzahlKombinationen(int summe, IEnumerable<int> münzen)
{
    if (summe == 0)
        return 1;

    if (!münzen.Any() || summe < 0)
        return 0;

    return AnzahlKombinationen(summe - münzen.First(), münzen)
        + AnzahlKombinationen(summe, münzen.Skip(1));
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

const
  mw: array of integer = [1, 5, 10, 25, 50];

implementation

{$R *.dfm}

function z(betrag, maxm: integer): integer;
var
  x, zaehler: integer;
  ergebnis: integer;
begin

  // ergebnis := 0;

  if betrag = 0 then
    ergebnis := 1
  else if betrag < 0 then
    ergebnis := 0
  else
  begin

    zaehler := 0;
    x := maxm;
    while true do
    begin
      zaehler := zaehler + z(betrag - mw[x], x);
      if x = 0 then
        break;
      x := x - 1;
    end;
    ergebnis := zaehler;
  end;

  result := ergebnis;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

  showmessage(inttostr(z(100, high(mw))));
  halt;

end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

~25 = (25, ~[10 10 5])                --> 1 + 4*3 = 13 Zerlegungen
~50 = (50, 25 ~25, ~[10 10 10 10 10]) --> 1 + 13 + 6*6 = 50 Zerlegungen

~100 = (50 ~50,                           (50 Zerlegungen)
        25 25 25 ~25,                     (13 Zerlegungen)
        25 25 ~[10 10 10 10 10],          (6*6 = 36 Zerlegungen)
        25 ~[10 10 10 10 10 10 10 5],     (9*8 = 72 Zerlegungen)
        ~[10 10 10 10 10 10 10 10 10 10]) (11*11 = 121 Zerlegungen)
   --> 50 + 13 + 36 + 72 + 121           = 292 Zerlegungen                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

var t,m:integer; j:double;
begin
    for t:=1 to 31 do
      for m:=1 to 12 do begin
        j:=power(t,m);
        if (j>1000) and (j<=2100) then
          listbox1.items.add(floattostr(j)+' / '+inttostr(m)+' / '+inttostr(t));
      end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.ButtonClick(Sender: TObject);
var i,anz:integer; k,k2:string;
begin
    k:='A';
    repeat
      k2:='';
      for I:=1 to length(k) do
        case k[i] of
          'A' : k2:=k2+'Bc';
          'a' : k2:=k2+'bC';
          'B' : k2:=k2+'Ca';
          'b' : k2:=k2+'cA';
          'C' : k2:=k2+'Ab';
          'c' : k2:=k2+'aBa';
        end;
      k:=k2;
      anz:=0;
      for i:=1 to length(k) do
        if k[i] in ['B','b'] then inc(anz);
      listbox1.Items.add(inttostr(anz)+' | '+inttostr(3*anz)+' | '+inttostr(length(k)));
    until length(k)>1000;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>

#define addr(v) r[len++] = v
#define chlen(l) if(l > mlen) r = realloc(r, mlen += 10)
#define repl2(a,b,c)   case a: chlen(len+2); addr(b); addr(c); break;
#define repl3(a,b,c,d) case a: chlen(len+3); addr(b); addr(c); addr(d); break;

uint16_t len = 1;

char* fmt(char* s) {
  uint16_t i = -1, mlen = len + len;
  char* r = malloc(mlen);
  len = 0;
  
  while(s[++i])
    switch(s[i]) {
      repl2('A', 'B', 'c')
      repl2('a', 'b', 'C')
      repl2('B', 'C', 'a')
      repl2('b', 'c', 'A')
      repl2('C', 'A', 'b')
      repl3('c', 'a', 'B', 'a')
    }
  r[len] = 0;
  free(s);
  return r;
}

int main() {
  char* s = malloc(len + 1);
  s[0] = 'A';
  while(len < 1000) s = fmt(s);
  uint16_t i = -1, n = 0;
  while(s[++i]) if(s[i] == 'B' || s[i] == 'b') n++;
  
  free(s);
  printf("%i\n",n);
  return 0;
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

C:\Users\user>CD C:\Projects & gcc EEAK10.c & a
num:  length : yellows :time ms
-------------------------------
  1:        1:        0:      0
  2:        2:        1:      0
  3:        5:        1:      0
  4:       10:        4:      0
  5:       20:        6:      0
  6:       45:       14:      0
  7:      103:       31:      0
  8:      213:       72:      0
  9:      440:      141:      0
 10:      979:      299:      0
 11:     2170:      680:      0
 12:     4552:     1490:      0
 13:     9605:     3062:      0
 14:    21125:     6543:      0
 15:    46109:    14582:      0
 16:    97650:    31527:      0
 17:   208329:    66123:      0
 18:   454510:   142206:      0
 19:   984528:   312304:     31
 20:  2098425:   672224:     93
 21:  4500919:  1426201:    390
 22:  9768357:  3074718:   1812
 23: 21082852:  6693639:   7578
 24: 45121043: 14389213:  30910 //      31s
 25: 97020546: 30731830: 143931 // 2min 24s
 26:209876848: 66288716: 742173 //12min 22s
 27:452234933:143588132:3361045 //56min  1s                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

#include <stdint.h>

extern int clock();
extern void free(void *ptr);
extern void* malloc(int size);
extern void* realloc(void *ptr, int size);
extern int printf(char* fmt, ...);

#define addr(v) r[len++] = v
#define chlen(l) if(l > mlen) r = realloc(r, mlen += 10)
#define repl2(a,b,c)   case a: chlen(len+2); addr(b); addr(c); break;
#define repl3(a,b,c,d) case a: chlen(len+3); addr(b); addr(c); addr(d); break;

uint32_t len = 1;

char* fmt(char* s) {
  uint32_t i = -1, mlen = len + len;
  char* r = malloc(mlen);
  len = 0;
  
  while(s[++i])
    switch(s[i]) {
      repl2('A', 'B', 'c')
      repl2('a', 'b', 'C')
      repl2('B', 'C', 'a')
      repl2('b', 'c', 'A')
      repl2('C', 'A', 'b')
      repl3('c', 'a', 'B', 'a')
    }
  r[len] = 0;
  free(s);
  return r;
}

int main() {
  char* s = malloc(len + 1);
  s[0] = 'A';
  printf(
    "num:  length : yellows :time ms\n"
    "-------------------------------\n"
    "  1:        1:        0:      0\n"
  );
  uint8_t c = 1;
  uint32_t start = clock();
  while(c++) {
    s = fmt(s);
    uint32_t i = -1, n = 0;
    while(s[++i]) if(s[i] == 'B' || s[i] == 'b') n++;
    printf("%3i:%9i:%9i:%7i\n", c, len, n, clock()-start);
  }

  free(s);
  return 0;
}                    

1:

#define chlen(l) if(l > mlen) r = realloc(r, mlen += 1000000)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

C:\Users\user>CD C:\Projects & gcc EEAK10.c & a
num:  length : yellows :time ms
-------------------------------
  1:        1:        0:      0
  2:        2:        1:      0
  3:        5:        1:      0
  4:       10:        4:      0
  5:       20:        6:      0
  6:       45:       14:      0
  7:      103:       31:      0
  8:      213:       72:      0
  9:      440:      141:      0
 10:      979:      299:      0
 11:     2170:      680:      0
 12:     4552:     1490:      0
 13:     9605:     3062:      0
 14:    21125:     6543:      0
 15:    46109:    14582:      0
 16:    97650:    31527:      0
 17:   208329:    66123:     15
 18:   454510:   142206:     15
 19:   984528:   312304:     31
 20:  2098425:   672224:     46
 21:  4500919:  1426201:     93
 22:  9768357:  3074718:    187
 23: 21082852:  6693639:    406
 24: 45121043: 14389213:   1015
 25: 97020546: 30731830:   2390
 26:209876848: 66288716:   7078
 27:452234933:143588132:  22719                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const rules = {"A": "Bc", "a": "bC", "B": "Ca", "b": "cA", "C": "Ab", "c": "aBa"};

const substitute = S => S.split("").map( x => rules[x] ).join("");

const runUntilLength = l => {
  let r = "A";
  while (r.length < l)
    r = substitute(r);

  const letterCount = {};
  for (const letter of r)
    letterCount[letter] = (letterCount[letter] || 0) + 1;

  return [r.length, letterCount, r];
};                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

>> runUntilLength(1000)
<< [
  2170,
  {
    A: 166,
    B: 345,
    C: 468,
    a: 644,
    b: 335,
    c: 212
  },
  "BccAcAAbcAAbAbbCcAAbcAAbAbbCcAAbAbbCbCCabCcAAbAbbC…BaBcCaaBaaBaBcaBaBcBccAaBaBcBccABccAcAAbaBaBcBccA"
]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:

program Lichterkette;
uses
   sysutils;
type
  tLampe = (Rot1,Rot2,Gelb1,Gelb2,Blau1,Blau2);
  tLichterKette = array of tLampe;
  tGefolgt = record
               gfCnt: NativeInt;
               gfLtype : array[0..2] of tLampe;
             end;
  tSum = array[tlampe] of Uint64;
const
  cName: array[tLampe] of string =
     (' Rot1',' Rot2','Gelb1','Gelb2','Blau1','Blau2');
  Gefolgt :array[tLampe] of tGefolgt =
      ((gfCnt:2;gfLtype:(Gelb1,blau2,ROT1)),//ROT1 als dummy
       (gfCnt:2;gfLtype:(Gelb2,blau1,ROT1)),
       (gfCnt:2;gfLtype:(blau1,rot2,ROT1)),
       (gfCnt:2;gfLtype:(blau2,Rot1,ROT1)),
       (gfCnt:2;gfLtype:(Rot1,gelb2,ROT1)),
       (gfCnt:3;gfLtype:(Rot2,Gelb1,Rot2)));
  GefolgtGelbCnt : array[tLampe] of NativeInt=
                   (1,1,0,0,1,1);
  // Beispiel rot1 erzeugt 1 gelb1 und ein blau2
  delta:array[tLampe] of tSum =
       ((0,0,1,0,0,1),
        (0,0,0,1,1,0),
        (0,1,0,0,1,0),
        (1,0,0,0,0,1),
        (1,0,0,1,0,0),
        (0,2,1,0,0,0));


       //gelb blau blau blau ...
var
  l : array[0..1] of tLichterKette;
procedure AusgabeLK(Von:NativeInt);
var
  i : NativeInt;
Begin
  For i := 0 to 16 do
    write(cName[L[Von][i]],'.');
  writeln;
end;

function transscript(Von:NativeInt):NativeInt;
var
  i,j,nachPos,nach: NativeInt;
  idx : tLampe;
Begin
  nach:= 1-Von;
  setlength(l[nach],3*length(l[von]));
  nachPos:= 0;
  result := 0;
  For i := 0 to High(l[von]) do
  Begin
    idx := l[von][i];
    inc(result,GefolgtGelbCnt[idx]);
    with Gefolgt[idx] do
      For j := 0 to gfCnt-1 do
      Begin
        l[nach][nachPos] := gfLtype[j];
        inc(nachPos);
      end;
    end;
  setlength(L[nach],nachPos);
end;

function SumLights(S0 :tSum):tSum;
var
  i,j : tLampe;
begin
  For i := rot1 to blau2 do
    result[i] := 0;
  For i := rot1 to blau2 do
    For j := rot1 to blau2 do
      result[j] := result[j]+S0[i]*delta[i,j];
end;

var
  flip,cnt,gelbCnt : NativeInt;
  i,j : tLampe;
  s : tSum;
Begin
  for i := Rot1 to blau2 do //low(i) to high(i) do
  begin
    setlength(L[0],1);
    L[0][0] := i;
    writeln('Start mit ',cNAme[i]);
    flip := 0;
    cnt := 0;
    repeat
      inc(cnt);
      gelbCnt := transscript(flip);
      flip := 1-flip;
      If Cnt = 4 then
        AusgabeLK(flip);
    until length(L[flip]) > 1000;
    writeln('Kette Nr ',cnt:2,' Laenge ',length(L[flip]):5,' Anzahl Gelb ',gelbCnt);
  end;
  writeln;
  writeln('Summierend');
  For j := rot1 to blau2 do
  Begin
    For i := rot1 to blau2 do
      s[i] := 0;
    s[j] := 1;
    writeln('Start mit ',cNAme[j]);
    for cnt := 1 to 53 do
      s := SumLights(s);
    cnt := 0;
    For i := rot1 to blau2 do
      inc(cnt,s[i]);
    gelbCnt := s[gelb1]+s[gelb2];
    writeln('Kette Nr 50 Laenge ',cnt,' Anzahl Gelb ',gelbCnt);
  end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Start mit  Rot1
Gelb1.Blau2.Blau2. Rot1.Blau2. Rot1. Rot1.Gelb2.Blau2. Rot1. Rot1.Gelb2. Rot1.Gelb2.Gelb2.Blau1.Blau2.
Kette Nr 10 Laenge  2170 Anzahl Gelb 680
Start mit  Rot2
Gelb2.Blau1.Blau1. Rot2.Gelb2.Blau1.Blau1. Rot2. Rot2.Gelb1. Rot2.Blau1. Rot2. Rot2.Gelb1. Rot2. Rot2.
Kette Nr 10 Laenge  1927 Anzahl Gelb 615
Start mit Gelb1
Blau1. Rot2. Rot2.Gelb1. Rot2. Rot2.Gelb1. Rot2.Gelb1.Blau2. Rot2.Gelb1. Rot2.Gelb1.Blau2.Gelb1.Blau2.
Kette Nr 10 Laenge  1832 Anzahl Gelb 601
Start mit Gelb2
Blau2. Rot1. Rot1.Gelb2. Rot1.Gelb2.Gelb2.Blau1.Blau2. Rot1. Rot1.Gelb2. Rot1.Gelb2.Gelb2.Blau1.Gelb2.
Kette Nr  9 Laenge  1013 Anzahl Gelb 317
Start mit Blau1
 Rot1.Gelb2.Gelb2.Blau1.Gelb2.Blau1.Blau1. Rot2.Gelb2.Blau1.Gelb2.Blau1.Blau1. Rot2.Gelb2.Blau1.Blau1.
Kette Nr 10 Laenge  1992 Anzahl Gelb 616
Start mit Blau2
 Rot2.Gelb1. Rot2.Gelb1.Blau2.Gelb1.Blau2.Blau2. Rot1.Gelb1.Blau2.Blau2. Rot1.Blau2. Rot1. Rot1.Gelb2.
Kette Nr  9 Laenge  1286 Anzahl Gelb 397

Summierend
Start mit  Rot1
Kette Nr 50 Laenge 444299210642477560 Anzahl Gelb 140901953783614580
Start mit  Rot2
Kette Nr 50 Laenge 415137385065942629 Anzahl Gelb 131657618200446392
Start mit Gelb1
Kette Nr 50 Laenge 389897882886243441 Anzahl Gelb 123660034902180891
Start mit Gelb2
Kette Nr 50 Laenge 469538712822176748 Anzahl Gelb 148899537081880079
Start mit Blau1
Kette Nr 50 Laenge 424381720649110817 Anzahl Gelb 134580229783616158
Start mit Blau2
Kette Nr 50 Laenge 566712493259755764 Anzahl Gelb 179737221956682089                    

1:
2:

>> EE.solve( L0.split(""), L0.indexOf("?") )
<< Uncaught RangeError: Maximum call stack size exceeded                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

// ×: Box
// ?: Position of the worker
// !: Empty. Move boxes here. The maze is considered solved when it no longer contains "!".
// .: Empty. But never move boxes here
// (space): Empty.

// (edit) Durch einen Fehler in der EE wird der erste "█" Charakter in jeder Zeile doppelt html-escaped und als "& #9608;" angezeigt

const L0 = `
█████████..
█...█...███
█.  × ×  .█
██ ██!█. .█
█?×██!██×██
█.×!!!!! .█
██×██!██×.█
█. ██!█. .█
█. × ×█. ██
█.....█..█.
██████████.
`.trim().replace(/\r?\n/g, "");

const emptyLab = L0.replace(/×/g, " ").replace(/\?/g, ".");

window.EE = {};
EE.posHistory = {}; // position -> (?|+|-)

const steps = {
  "u": -11,
  "l": -1,
  "r": 1,
  "d": 11
};

EE.step = (L, p, d) => {
  // L: Labyrinth
  // p: position of "?" inside L
  // d: number by which to shift p

  const q = p + d;
  if (/[ !.]/.test(L[q])) {
    // moving to an empty field
    L[q] = "?";
    L[p] = emptyLab[p]; // empty: will be one of [ !.]
    return L;
  }

  const r = p + d + d;
  if (L[q] === "×" && /[ !]/.test(L[r])) {
    // pushing a box
    L[r] = "×";
    L[q] = "?";
    L[p] = emptyLab[p]; // empty: will be one of [ !.]
    return L;
  }
  
  return false;
};

EE.solve = (L, p) => {
  // L: Labyrinth
  // p: position of "?" inside L

  for (let dir in steps) {
    const d = steps[dir];
    const M = EE.step([...L], p, d);
    if (!M)
      continue;

    // notation: log an upper case letter if the script thinks it's moving a box
    const casedDirection = L[p + d] === "×" ? dir.toUpperCase() : dir;
    const pos = M.join("");

    if (!pos.includes("!")) {
      EE.posHistory[pos] = "+";
      return casedDirection + "+";
    }

    const h = EE.posHistory[pos];  // (?|+|-|undefined)
    if (h) {
      if (h === "?")
        continue;
      return h === "+";
    }

    EE.posHistory[pos] = "?";
    const solve = EE.solve(M, p + d);
    if (solve) {
      if (!solve.endsWith("?"))
        EE.posHistory[pos] = "+";
      return casedDirection + solve;
    }

    EE.posHistory[pos] = "-";
  }

  return false;
};                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

0: ______
1: B_____,_B____,__B___,___B__,____B_,_____B //immer um 1 Stelle schieben

2: B_B___,_B_B__,__B_B_,___B_B,
2: B__B__,_B__B_,__B__B,
2: B___B_,_B___B,
2: B____B

3: B_B_B_,_B_B_B
//0 = '_' und 1= 'B'