OldComp.cz

Komunitní diskuzní fórum pro fanoušky historických počítačů


Právě je 29.03.2024, 11:59

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]




Odeslat nové téma Odpovědět na téma  [ Příspěvků: 26 ]  Přejít na stránku Předchozí  1, 2
Autor Zpráva
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 30.01.2016, 17:12 
Offline
Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3642
Bydliště: Bratislava
Has thanked: 371 times
Been thanked: 788 times
Ked tak pozeram na tie polia, tak ma napadlo ... aky komplikovany by musel byt program, co by nejake pole zoradil quicksortom ?
Popripade by zo vstupu nacital N znakov, zoradil quicksortom a poslal zoradene na vystup ?


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 30.01.2016, 17:48 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Kód:
Zkracena verze s upravou aby pole mohlo obsahovat nuly
x = array(i) = 0 az 255
0i0a0b0c0d0
 *
[->[>>]+[<<]>]>[>>]>[<+[<<]>+>[>>]<-]<[>+<-]+[-<<]>
0x0a0b0c0d0
 *
Rozepsano po krocich.
Kód:
Zkracena verze s upravou aby pole mohlo obsahovat nuly
x = array(i) = 0 az 255
i = 2
0i0a0b0c0d0
 *
[->[>>]+[<<]>]
001a1b0c0d0
 *
>[>>]>
001a1b0c0d0
       *
[<+[<<]>+>[>>]<-]
0c1a1bc00d0
       *
<[>+<-]
0c1a1b0c0d0
      *     
+[-<<]>
0c0a0b0c0d0
 *

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 30.01.2016, 18:00 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Busy píše:
Ked tak pozeram na tie polia, tak ma napadlo ... aky komplikovany by musel byt program, co by nejake pole zoradil quicksortom ?
Popripade by zo vstupu nacital N znakov, zoradil quicksortom a poslal zoradene na vystup ?

Nekde na netu je myslim nejaky radici algoritmus. Pokud by pole neobsahovalo nuly, tak by se nula dala pouzivat jako zarazka a vubec by to nemuselo byt delano pres nejake array(i). Ale nejakym algoritmem na porovnani sousednich bunek.

... i kdyz... :D

Ono samotne porovnani je docela slozite, protoze bude vyzadovat nejake asi 2 mista navic na vypocet. Takze tam budou i nejake posuny. Na cokoliv sahnes aby jsi zjistil hodnotu tak to proste znicis. To je jako kvantova fyzika.. :D

Ja zatim jen uvazoval nad tim jak udelat operator mensi "<" nebo vetsi ">".

Tohle vypada ze je delane na konkretni velikost pole
http://codegolf.stackexchange.com/questions/2445/implement-quicksort-in-brainf

http://codegolf.stackexchange.com/questions/33019/brainfuck-sorting

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 31.01.2016, 14:59 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Tak razeni v Brainfucku ma opravdu neotrele metody.
Data si uklada do roztazeneho pole. Kde kazdym pruchodem snizujeme zadane hodnoty o jedna a zaroven o jedna zvysujeme leve mezery. Zadne porovnavani hodnot. Pouze zjistujeme u toho ktery znak dosahl nuly tim ze se na nem zastavi navratova smycka. A pokud je jeho mezera nenulova, tak to neni konec pole, ale znak co je zrovna na rade. Vytiskneme "mezeru", protoze ta aktualne obsahuje puvodni hodnotu znaku. Znak i s mezerou se smaze. Pole se slepi dohromady a timhle zkracenim pole dosahneme toho ze bude algoritmus ukoncen.

Algoritmus nacita vstup ze stdin. Ukoncen je nulovou hodnotou. Vystup je na stdout, data jsou ztracena, pamet obsahuje na konci same nuly.
Kód:
Daniel B. Cristofani.
File consists of next two lines terminated with UNIX newlines (10):
Selection sort: decrement; for zeroes output & close gaps; repeat
>>,[>>,]<<[[-<+<]>[>[>>]<[.[-]<[[>>+<<-]<]>>]>]<<]
Rozepsano po krocich.
Kód:
Nacteni hodnot zakoncenych nulou do roztazeneho pole; Posledni pozice je posledni nenulovy znak
>>,[>>,]<<
Hlavni smycka se vyhodnocuje na poslednim znaku
[
   Vsechny znaky smerem doleva snizit o jedna a jejich leve "mezery" zvysit o 1; smycka se vyhodnocuje na znacich; Konecna pozice je prvni leva "mezera"
   [-<+<]>
   Vnitrni smycka se vyhodnocuje na prvni leve "mezere"
   [
      Navrat doprava po znacich na zrovna vynulovany znak nebo az na konec; Konecna pozice je na "mezere" nuloveho znaku; Pokud je taky nula tak je to pravy konec; Jinak "mezera" obsahuje puvodni hodnotu znaku
      >[>>]<
      [
         "Mezera" je nenulova tak ji vytiskneme a vymazeme; Takze pole obsahuje 2 mezery ktere rozsekavaji pole na dve casti
         .[-]
         Presouvame vsechno doprava o 2 znaky; Posunujeme se po jedne bunce ale vime ze znaky jsou vlevo nenulove a mezery jsou nenulove celou dobu; Posledni pozice je treti nula od prvni leve nenulove "mezery"
         <[[>>+<<-]<]
         Presuneme pozici na prvni nulu vlevo a tim ukoncime smycku ktera je ve skutecnosti pouhy:
         if ( tiskni_znak ) { putchar(); smaz_bunku(); slep_mezeru_zleva(); }
         >>
      ]
      Presun pozice na prvni levou "mezeru" nebo na prvni nulovy znak uplne vpravo; Pokud je to mezera probehne znovu smycka na posun pozice doprava na prvni nenulovy znak
      >
   ]
   Presun pozice z nuloveho znaku vpravo na posledni nenulovy znak
   <<
]
Pamet je vynulovana a pozice na leve "mezere" posledniho zadaneho znaku

http://www.hevanet.com/cristofd/brainfuck/results2.txt

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 31.01.2016, 15:45 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
V Cecku by se to zapsalo nejak takto.
Kód:
/************************************************************************
 *                                                                      *
 *  Radici algoritmus bez porovnani hodnot                              *
 *                                                                      *
 ************************************************************************/

#include <stdio.h>

void  Sort( char * veta ) {

   int posledni = 0;
   while ( veta[posledni] && veta[posledni] != 27 ) posledni++;   // ukonceni nulou nebo ESC znakem
   
   char znak = 0;
   
   while ( posledni ) {

      znak++;
      int i = posledni;

      while ( i-- ) {
         veta[i]--;
         if ( veta[i] == 0 ) {
            putchar(znak);
            veta[i] = veta[--posledni];
         }
      }

   }
   putchar('\n');
}


#define MAX_BUFFER   2048

int main() {

   char retezec[MAX_BUFFER];
   fprintf(stderr,"Ukonceni v linuxu ctrl+d, pokud se nema prevadet ENTER tak prvne stisknete ESC.\n");

   while ( 1 ) {
      fprintf(stderr,"Napis neco...\n");
      if ( fgets(retezec, sizeof(retezec)-1, stdin) == NULL ) return 0;   // nacte jeden radek do bufferu
      Sort( &retezec[0] );
   }
}

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 04.02.2016, 17:42 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Tak chybi jeste druha cast prace s polem. Ukladani do pole.
Kód:
array(i) = x = 0 az 255
0xia0b0c0d0
  *
[[>>]+[<<]>>-]+[>>]<[-]<[<<]>[>[>>]<+<[<<]>-]>[>>]+[-<<]
000a0b0x0d0 pro i=2
*
Rozepsano po krocich.
Kód:
array(i) = x = 0 az 255
i = 2
0xia0b0c0d0
  *
[[>>]+[<<]>>-] vytvoreni cesty
0x0a1b1c0d0
  *
+[>>]<[-]<[<<]> smazani puvodni
0x1a1b100d0
 *
[>[>>]<+<[<<]>-] presun hodnoty
001a1b1x0d0
 *
>[>>]+[-<<] smazani cesty
000a0b0x0d0
*
Nenapadla me zadna optimalizace. Vzhledem k tomu ze hodnoty x a i mohou byt i nulove tak neni na nic spoleh a musela by nejaka bunka byt priznak v jake jsme fazi a to vychazi jeste sloziteji nez opakovane posuny do pole a na zacatek. Kod je temer identicky s timhle https://esolangs.org/wiki/Brainfuck_algorithms#x.28y.29_.3D_z_.281-d_array.29_.282_cells.2Farray_element.29. Ale tam nedokazi pochopit syntaxi, bez toho vypisu pameti a ukazatele na aktivni bunku to nechapu.

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 14.02.2016, 14:58 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
_dworkin píše:
https://github.com/DW0RKiN/Brainfuck/blob/master/text2brain_gama.c

Program prevadejici zadany textovy retezec na program v Brainfucku co vypisuje zadany retezec. :)

Treti varianta prevodu. Neni to klasicka varianta co je na netu, ktera si vytvori pole PREVOD[256][256], ale o neco efektivnejsi reseni pro delsi text.

Pouziva 2 smycky. Prvne zpetnou hlavni smycku, ktera efektivne vytvori zakladni konstantu. Pomoci jedineho plus napr. 110, ktera lezi uprostred nejcastejsich malych pismen.

Hlavni_smycka[-3..3] = 182, 36, 146, 0, 110, 220, 74

Navrat v hlavni smycce na adresu pocitadla se provadi pres [>]<. Tzn. nemuzeme pouzit Hlavni_smycka[0] = 0.

Nasleduje druha zpetna opravna smycka a korekce, ktere konstantu opravi na pozadovanou hodnotu.

Tisk se provede pres [>.]

Nevyhoda je, ze algoritmus pro kazdy znak zabere jednu pametovou bunku.
Kód:
++[<±...<A1<A0[>]<-------]B[<±...<C1<C0[>]<-]<D0<D1<±...<[.>]

string[0] = FceA(A0) + B*C0 + D0
string[0] = FceA(A1) + B*C1 + D1

FceA[-3..3] = 182, 36, 146, 0, 110, 220, 74

Vystup vypada nejak takto:
Kód:
dworkin@dworkin-Aspire-E1-572G:~/Programovani/Cecko/Brainfuck/Gama$ ./a.out
Ukonceni v linuxu ctrl+d, pokud se nema prevadet ENTER tak prvne stisknete ESC.
Napis neco...
Hello World!
nasobek: 4 delka 116
++[<--<+<+<+<+<+++<--<+<+<+<+<+++[>]<-------]>++++[<++<-<--<<+<<+++<-<<<<--<[>]<-]<++<+<--<--<<+<+<<+<--<--<-<--[.>]
Napis neco...
Hello World!^[
nasobek: 4 delka 109
++[<--<+<+<+<+<+++<--<+<+<+<+<+++[>]<-------]++++[<-<--<<+<<+++<-<<<<--<[>]<-]<+<--<--<<+<+<<+<--<--<-<--[.>]
Napis neco...


Provedena mala uprava, ktera umozni aby prvni smycka nemusela obsahovat aspon jeden znak, vetsinou jedno plus pro male pismeno. Vlastne nechapu proc me to nenapadlo drive jak je to snadne...
Kód:
++[<±...<A1<A0[>]<-------]B[<±...<C1<C0[>]<-]<D0<D1<±...<[.>]
++[<-P<±...<A1<A0[>+P]<-------]<B[<±...<C1<C0[>]<-]<D0<D1<±...<[.>]

string[0] = FceA(A0)   + B*C0 + D0
string[1] = FceA(A1+P) + B*C1 + D1

FceA[-3..3] = 182, 36, 146, 0, 110, 220, 74
FceA[0] = Forbidden
Nove vystup vypada nejak takto:
Kód:
dworkin@dworkin-Aspire-E1-572G:~/Programovani/Cecko/Brainfuck/Gama$ ./a.out
Ukonceni v linuxu ctrl+d, pokud se nema prevadet ENTER tak prvne stisknete ESC.
Napis neco...
Hello World!
nasobek: 4 delka 111
++[<-<---<<<<<++<---<<<<<+++[>+]>-------]++++[<++<-<--<<+<<+++<-<<<<--<[>]<-]<++<+<--<--<<+<+<<+<--<--<-<--[.>]
Napis neco...
Hello World!^[
nasobek: 4 delka 106
++[<-<---<<<<<++<---<<<<<+++[>+]>-------]<++++[<-<--<<+<<+++<-<<<<--<[>]<-]<+<--<--<<+<+<<+<--<--<-<--[.>]
Napis neco...
Converts a string to a brainfuck code that prints that string.^[
nasobek: 4 delka 388
++[<-<---<<<<<<<---<<<<<---<<<<<<<---<<<<<---<<<<<---<<<<<<<<<<---<<---<<<---<<<<<<<---<<---<<<<<<<<+++[>+]>-------]<++++[<++<--<<-<+<+<+<-<+<---<-<+<-<+<+<<-<+<<-<+<---<-<+<-<--<--<<---<-<-<---<++<--<<-<---<+<---<-<---<-<<+<-<--<<-<+<+<+<-<---<-<+<+<+<--<++<<<--[>]<-]<++<+<<-<<++<+<<++<-<--<++<<+<++<<-<<++<<++<-<--<++<<-<--<+<+<<+<+<-<<<-<-<<<<-<<+<++<<+<<-<<++<+<<-<<+<++<<-<<<+<+[.>]
Napis neco...

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 14.02.2016, 16:27 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Neco malo o smyckach.

N...nasobek
k₀,k₁,k₂...koeficienty vysledku
P...predni scitanec ke koeficientu
Z...zadni scitanec ke koeficientu
Ohledne te pameti tak na zacatku je vlastne nulova a prvni ukazka je takovy nastin jak to vypada po prvni iteraci smycky.

Zakladni, ktera zvladne i nulu ve vysledku, ale za cenu opakovaneho "<<<<<"
Kód:
pamet: (N),k₀,k₁,k₂,k₃,k₄
N[>k₀>k₁>k₂>k₃>k₄<<<<<-] nebo N[->k₀>k₁>k₂>k₃>k₄<<<<<]
vₓ = N * kₓ
pamet: (0),v₀,v₁,v₂,v₃,v₄

Vylepsena zakladni, ktera nesmi mit nulovy koeficient kₓ
Kód:
pamet: 0,(N),k₀,k₁,k₂,k₃,k₄
N[>k₀>k₁>k₂>k₃>k₄[<]>-]
vₓ = N * kₓ
kₓ ≠ 0
pamet: 0,(0),v₀,v₁,v₂,v₃,v₄

Kombinace obou predchozich, kdy posledni koeficienty mohou byt nulove. Ale aby to melo smysl tak uplne posledni chceme nenulovy.
Kód:
pamet: 0,(N),k₀,k₁,k₂,k₃,k₄
N[>k₀>k₁>k₂>k₃>k₄<<[<]>-]
vₓ = N * kₓ
k₀ a k₁ a k₄ ≠ 0
k₃ = 0
pamet: 0,(0),v₀,v₁,v₂,v₃,v₄

Pouziti hacku s pretecenim adresy bunek, kde vime ze je pamet vsude nulova.
Kód:
M = N - 1
pamet: (0),N-1,k₀,k₁,k₂,k₃,k₄,0,0,0,...
-[>+]>M[>k₀>k₁>k₂>k₃>k₄[>]>-] nebo -[>+]>M[->k₀>k₁>k₂>k₃>k₄[>]>]
vₓ = 1 + N * kₓ
k₄ ≠ -1
pamet: 0,(0),v₀,v₁,v₂,v₃,v₄,1,1,1,...

Pokud nejsou koeficienty kₓ rovnomerne rozlozeny kolem nuly tak muze byt vyhodne je upravit tak aby byly.
Kód:
pamet: 0,(N),k₀,k₁,k₂,k₃,k₄
N[>k₀>k₁>k₂>k₃>k₄[P<]>-P-] nebo N[>k₀>k₁>k₂>k₃>k₄<[>P<<]>-]
vₓ = N * ( P + kₓ )
kₓ ≠ 0
pamet: 0,(0),v₀,v₁,v₂,v₃,v₄

Pokud u poslednich koeficientu napriklad znaku zalomeni nechceme pricitat scitanec P, protoze by k₄ obsahoval skoro -P.
Kód:
pamet: 0,(N),k₀,k₁,k₂,k₃,k₄
N[>k₀>k₁>k₂>k₃>k₄<<[>P<<]>-]
v₄ = N * k₄
vₓ = N * ( P + kₓ )
k₃ muze byt nulove
k₀ a k₁ a k₂ ≠ 0
pamet: 0,(0),v₀,v₁,v₂,v₃,v₄

Zmena rozlozeni pameti, nulova zarazka mezi nasobkem a koeficienty.
Kód:
pamet: (N),0,k₀,k₁,k₂,k₃,k₄
N[>>k₀>k₁>k₂>k₃>k₄[P<]<-]
vₓ = N * ( P + kₓ )
kₓ ≠ 0
pamet: (0),0,v₀,v₁,v₂,v₃,v₄

Uprava aby mohly byt koeficienty nulove. Definujeme si zarazku, ktera bude mit otocenou hodnotu zadniho scitance.
Kód:
pamet: (N),-Z,k₀,k₁,k₂,k₃,k₄
N[>-Z>k₀>k₁>k₂>k₃>k₄[P<Z]>-]
v₄ = N * ( P + k₄ )
vₓ = N * ( Z + P + kₓ )
k₄ ≠ 0
kₓ ≠ -Z
P = 0..n
pamet: (0),0,v₀,v₁,v₂,v₃,v₄

Varianta s poslednima koeficientama bez pricteni P.
Kód:
pamet: (N),-Z,k₀,k₁,k₂,k₃,k₄
N[>-Z>k₀>k₁>k₂>k₃>k₄<[P<Z]>-]
v₄ = N * k₄
v₃ = N * ( P + k₃ )
vₓ = N * ( Z + P + kₓ )
k₃ ≠ 0
kₓ ≠ -Z
P = 0..n
pamet: (0),0,v₀,v₁,v₂,v₃,v₄

Varianta s koeficienty vne smycky.
Kód:
pamet: (-Z),k₀,k₁,k₂,k₃,0,N*(P+k₄)
-Z>k₀>k₁>k₂>k₃>k₄[P[>N<-]<Z]]
v₄ = N * ( P + k₄ )
vₓ = N * ( Z + P + kₓ )
k₄ ≠ 0
kₓ ≠ -Z
P = 0..n
pamet: (0),0,v₀,v₁,v₂,v₃,v₄

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Naposledy upravil _dworkin dne 14.02.2016, 20:13, celkově upraveno 1

Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 14.02.2016, 16:52 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
_dworkin píše:
"Hello World!\n" v Brainfucku na 95 bajtu!!! :D Tak to je asi svetovy rekord...
Kód:
++[>+++>+>+>+>--[<]>-------]>--.<+++++[>+++>>>-->->++[<]>-]>>>>+.<--..<+.>>>+.+<-<<<.>.+++[.>]
https://www.reddit.com/r/tinycode/comments/1oqgwm/shortest_hello_world_brainfuck_code/

Tak nebylo to 95 ale 94. Github ukazuje o jeden vic. Dalsi varianty.
Kód:
-<+++++<---<<<+<+<+<-[+++[<++++++++>-]>+]<<.-[<<<[+<]>[>]<-]<++<<--.-<---..<.>>>.+<<<+++<<[.>]

Kód:
-<+++++<---<<<+<+<-[+++[<++++++++>-]>+]<<.-[<<<[+<]>[>]<-]<++<<--.-<---..<.>>>.+<<<<.>.+++[.>]

93 bajtu.
Kód:
++++++++++[>>->+>+++>+++>++>+++>+<<[++++++++<]<-]>>++.>>>>+.<--..<+.>>>++.+<-<<<---.>.+++[.>]

Kód:
++++++++++[>->-->+>>++>++>++>+++>+<<[++++++++<+]<-]>>++.>+.>>>--..<+.>>>++.+<<<<---.>.+++[.>]

92 bajtu. Tohle je az trapne jednoduche.
Kód:
++++++++++[>--->->+>+>>+++>+<<<[>++++++++++<<]>-]>++.>>>>+.<--..<+.>>>++.+<-<<<---.>.+++[.>]

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 14.02.2016, 17:00 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
81 bajtu...
Kód:
--<-<<+[+[<+>--->->->-<<<]>]<<--.<++++++.<<-..<<.>.>>.<<<.+++.>>.>>-.<<<+.<<<+++.

Uprava z "Hello, World!" na 78 bajtu na http://codegolf.stackexchange.com/questions/55422/hello-world/68494 Hledejte "Brainfuck, 78 bytes".

Ani se to nesnazte debugovat na http://www.iamcal.com/misc/bf_debug/ protoze to trva minimalne pres hodinu. Ta smycka pozira sama sebe. ;)
Kód:
--<-<<+@[+[<+>--->->->-<<<]@>]#<<--.<++++++.<<-..<<.>.>>.<<<.+++.>>.>>-.<<<+.<<<+++.
                                   H       e   ll  o _  W   o   r  l   d    !     \n
                                   
 Pamet v @:
        memory(253):    0     0     0  [  1]    0   255   254

 Pamet v @:       
                                  Zde je vlastne kolikrat smycka probehla, protoze se to provadi na vzdy vynulovanou bunku predchozi smyckou
                                  vvv
 f( -1) memory(253):    0     0    86  [  0]  170   169   168
 f(  0) memory(254):    0    86    57  [  0]  112   111   199
 f(  1) memory(255):   86    57   123  [  0]  244    76   133
 f(  2) memory(  0):   57   123   167  [  0]  165   222    89
 f(  3) memory(  1):  123   167   226  [  0]  252   119    30
 f(  4) memory(  2):  167   226   255  [  0]  120    31     1
 f(  5) memory(  3):  226   255   211  [  0]   76    46    45
 f(  6) memory(  4):  255   211   111  [  0]  191   190   145
 f(  7) memory(  5):  211   111    64  [  0]  126    81   192
 f(  8) memory(  6):  111    64   213  [  0]  124   235    43
 f(  9) memory(  7):   64   213   127  [  0]  108   172   129
 f( 10) memory(  8):  213   127   207  [  0]  221   178    49
 f( 11) memory(  9):  127   207    74  [  0]  104   231   182
 f( 12) memory( 10):  207    74    35  [  0]  196   147   221
 f( 13) memory( 11):   74    35   151  [  0]  252    70   105
 f( 14) memory( 12):   35   151   255  [  0]   71   106     1
 f( 15) memory( 13):  151   255    24  [  0]   82   233   232
 f( 16) memory( 14):  255    24   113  [  0]  120   119   143
 f( 17) memory( 15):   24   113   211  [  0]  164   188    45
 f( 18) memory( 16):  113   211    55  [  0]  133   246   201
 f( 19) memory( 17):  211    55   130  [  0]  116    71   126
 f( 20) memory( 18):   55   130    39  [  0]   32    87   217
 f( 21) memory( 19):  130    39    11  [  0]   76   206   245
 f( 22) memory( 20):   39    11   111  [  0]   95   134   145
 f( 23) memory( 21):   11   111    32  [  0]  102   113   224
 f( 24) memory( 22):  111    32   205  [  0]  164    19    51
 f( 25) memory( 23):   32   205    55  [  0]  220   252   201
 f( 26) memory( 24):  205    55   159  [  0]   93    42    97
 f( 27) memory( 25):   55   159   202  [  0]   96   151    54
 f( 28) memory( 26):  159   202   203  [  0]  204   107    53
 f( 29) memory( 27):  202   203   239  [  0]  124    70    17
 f( 30) memory( 28):  203   239   127  [  0]  199   146   129
 f( 31) memory( 29):  239   127   152  [  0]  250   233   104
 f( 32) memory( 30):  127   152   169  [  0]   64   191    87
 f( 33) memory( 31):  152   169   107  [  0]   84   236   149
 f( 34) memory( 32):  169   107   199  [  0]   37   206    57
 f( 35) memory( 33):  107   199    98  [  0]  108   215   158
 f( 36) memory( 34):  199    98   207  [  0]    8   207    49
 f( 37) memory( 35):   98   207     3  [  0]  204    46   253
 f( 38) memory( 36):  207     3   239  [  0]   63    14    17
 f( 39) memory( 37):    3   239   192  [  0]   78    81    64
 f( 40) memory( 38):  239   192   197  [  0]  140   123    59
 f( 41) memory( 39):  192   197    47  [  0]   76    12   209
 f( 42) memory( 40):  197    47   111  [  0]  157    98   145
 f( 43) memory( 41):   47   111   138  [  0]  216     7   118
 f( 44) memory( 42):  111   138   243  [  0]   20   131    13
 f( 45) memory( 43):  138   243     7  [  0]  124     6   249
 f( 46) memory( 44):  243     7   127  [  0]  135   122   129
 f( 47) memory( 45):    7   127   216  [  0]  162   169    40
 f( 48) memory( 46):  127   216   225  [  0]  200    71    31
 f( 49) memory( 47):  216   225    67  [  0]    4   220   189
 f( 50) memory( 48):  225    67    87  [  0]  133   102   169
 f( 51) memory( 49):   67    87   130  [  0]  228    39   126
 f( 52) memory( 50):   87   130   247  [  0]   48   135     9
 f( 53) memory( 51):  130   247   187  [  0]  204    78    69
 f( 54) memory( 52):  247   187   239  [  0]   95    86    17
 f( 55) memory( 53):  187   239    32  [  0]   54   241   224
 f( 56) memory( 54):  239    32   189  [  0]   52    35    67
 f( 57) memory( 55):   32   189   103  [  0]  188   220   153
 f( 58) memory( 56):  189   103    63  [  0]  157    90   193
 f( 59) memory( 57):  103    63   138  [  0]  208    55   118
 f( 60) memory( 58):   63   138   155  [  0]  156   219   101
 f( 61) memory( 59):  138   155   223  [  0]  252   134    33
 f( 62) memory( 60):  155   223   255  [  0]  135    34     1
 f( 63) memory( 61):  223   255   216  [  0]   74    41    40
 f( 64) memory( 62):  255   216    25  [  0]   16    15   231
 f( 65) memory( 63):  216    25    91  [  0]  180   140   165
 f( 66) memory( 64):   25    91   231  [  0]  165   190    25
 f( 67) memory( 65):   91   231   226  [  0]  220    55    30
 f( 68) memory( 66):  231   226   159  [  0]  152   127    97
 f( 69) memory( 67):  226   159    51  [  0]   76    46   205
 f( 70) memory( 68):  159    51   111  [  0]  191    94   145
 f( 71) memory( 69):   51   111    64  [  0]   30    81   192
 f( 72) memory( 70):  111    64   181  [  0]  156    11    75
 f( 73) memory( 71):   64   181   223  [  0]   44   108    33
 f( 74) memory( 72):  181   223    15  [  0]   93    18   241
 f( 75) memory( 73):  223    15   202  [  0]   72    39    54
 f( 76) memory( 74):   15   202   195  [  0]  100   115    61
 f( 77) memory( 75):  202   195   119  [  0]  252   198   137
 f( 78) memory( 76):  195   119   255  [  0]  199   138     1
 f( 79) memory( 77):  119   255   152  [  0]  242   105   104
 f( 80) memory( 78):  255   152    81  [  0]   24    23   175
 f( 81) memory( 79):  152    81   179  [  0]  100   252    77
 f( 82) memory( 80):   81   179   119  [  0]  133   214   137
 f( 83) memory( 81):  179   119   130  [  0]   84     7   126
 f( 84) memory( 82):  119   130   199  [  0]   64   183    57
 f( 85) memory( 83):  130   199   107  [  0]   76   206   149
 f( 86) memory( 84):  199   107   111  [  0]   95    38   145
 f( 87) memory( 85):  107   111    32  [  0]    6   113   224
 f( 88) memory( 86):  111    32   173  [  0]  196    51    83
 f( 89) memory( 87):   32   173   151  [  0]  156   188   105
 f( 90) memory( 88):  173   151   223  [  0]  221   138    33
 f( 91) memory( 89):  151   223    74  [  0]   64   215   182
 f( 92) memory( 90):  223    74   107  [  0]  108    75   149
 f( 93) memory( 91):   74   107   207  [  0]  124   198    49
 f( 94) memory( 92):  107   207   127  [  0]   71   178   129
 f( 95) memory( 93):  207   127    24  [  0]  154   105   232
 f( 96) memory( 94):  127    24   137  [  0]  224    95   119
 f( 97) memory( 95):   24   137    75  [  0]   20    44   181
 f( 98) memory( 96):  137    75     7  [  0]   37   174   249
 f( 99) memory( 97):   75     7    98  [  0]   76   151   158
 f(100) memory( 98):    7    98   111  [  0]   40    47   145
 f(101) memory( 99):   98   111    99  [  0]  204    46   157
 f(102) memory(100):  111    99   239  [  0]   63   174    17
 f(103) memory(101):   99   239   192  [  0]  238    81    64
 f(104) memory(102):  239   192   165  [  0]  172   155    91
 f(105) memory(103):  192   165   143  [  0]   12   204   113
 f(106) memory(104):  165   143   175  [  0]   29   194    81
 f(107) memory(105):  143   175    10  [  0]  184    71   246
 f(108) memory(106):  175    10   147  [  0]  180    99   109
 f(109) memory(107):   10   147   231  [  0]  124   134    25
 f(110) memory(108):  147   231   127  [  0]    7   154   129
 f(111) memory(109):  231   127    88  [  0]   66    41   168
 f(112) memory(110):  127    88   193  [  0]  104   231    63
 f(113) memory(111):   88   193    35  [  0]  196    28   221
 f(114) memory(112):  193    35   151  [  0]  133    70   105
 f(115) memory(113):   35   151   130  [  0]  196   231   126
 f(116) memory(114):  151   130   151  [  0]   80   231   105
 f(117) memory(115):  130   151    27  [  0]  204    78   229
 f(118) memory(116):  151    27   239  [  0]   95   246    17
 f(119) memory(117):   27   239    32  [  0]  214   241   224
 f(120) memory(118):  239    32   157  [  0]   84    67    99
 f(121) memory(119):   32   157   199  [  0]  124   156    57
 f(122) memory(120):  157   199   127  [  0]   29   186   129
 f(123) memory(121):  199   127    10  [  0]  176   119   246
 f(124) memory(122):  127    10    59  [  0]   60   187   197
 f(125) memory(123):   10    59   191  [  0]  252     6    65
 f(126) memory(124):   59   191   255  [  0]    7    66     1
 f(127) memory(125):  191   255    88  [  0]  234   169   168
 f(128) memory(126):  255    88   249  [  0]  176   175     7
 f(129) memory(127):   88   249    59  [  0]  116   204   197
 f(130) memory(128):  249    59    39  [  0]  165   158   217
 f(131) memory(129):   59    39   226  [  0]  188   247    30
 f(132) memory(130):   39   226    63  [  0]  184   223   193
 f(133) memory(131):  226    63   147  [  0]   76    46   109
 f(134) memory(132):   63   147   111  [  0]  191   254   145
 f(135) memory(133):  147   111    64  [  0]  190    81   192
 f(136) memory(134):  111    64   149  [  0]  188    43   107
 f(137) memory(135):   64   149    63  [  0]  236    44   193
 f(138) memory(136):  149    63    79  [  0]  221   114   177
 f(139) memory(137):   63    79    74  [  0]   40   103   182
 f(140) memory(138):   79    74    99  [  0]    4    83   157
 f(141) memory(139):   74    99    87  [  0]  252    70   169
 f(142) memory(140):   99    87   255  [  0]   71   170     1
 f(143) memory(141):   87   255    24  [  0]  146   233   232
 f(144) memory(142):  255    24    49  [  0]  184   183   207
 f(145) memory(143):   24    49   147  [  0]   36    60   109
 f(146) memory(144):   49   147   183  [  0]  133   182    73
 f(147) memory(145):  147   183   130  [  0]   52   199   126
 f(148) memory(146):  183   130   103  [  0]   96    23   153
 f(149) memory(147):  130   103   203  [  0]   76   206    53
 f(150) memory(148):  103   203   111  [  0]   95   198   145
 f(151) memory(149):  203   111    32  [  0]  166   113   224
 f(152) memory(150):  111    32   141  [  0]  228    83   115
 f(153) memory(151):   32   141   247  [  0]   92   124     9
 f(154) memory(152):  141   247    31  [  0]   93   234   225
 f(155) memory(153):  247    31   202  [  0]   32    23    54
 f(156) memory(154):   31   202    11  [  0]   12    43   245
 f(157) memory(155):  202    11   175  [  0]  124    70    81
 f(158) memory(156):   11   175   127  [  0]  199   210   129
 f(159) memory(157):  175   127   152  [  0]   58   233   104
 f(160) memory(158):  127   152   105  [  0]  128   255   151
 f(161) memory(159):  152   105    43  [  0]  212   108   213
 f(162) memory(160):  105    43    71  [  0]   37   142   185
 f(163) memory(161):   43    71    98  [  0]   44    87   158
 f(164) memory(162):   71    98    15  [  0]   72   143   241
 f(165) memory(163):   98    15   195  [  0]  204    46    61
 f(166) memory(164):   15   195   239  [  0]   63    78    17
 f(167) memory(165):  195   239   192  [  0]  142    81    64
 f(168) memory(166):  239   192   133  [  0]  204   187   123
 f(169) memory(167):  192   133   239  [  0]  204   140    17
 f(170) memory(168):  133   239   239  [  0]  157    34    17
 f(171) memory(169):  239   239   138  [  0]  152   135   118
 f(172) memory(170):  239   138    51  [  0]   84    67   205
 f(173) memory(171):  138    51   199  [  0]  124     6    57
 f(174) memory(172):   51   199   127  [  0]  135   186   129
 f(175) memory(173):  199   127   216  [  0]  226   169    40
 f(176) memory(174):  127   216   161  [  0]    8   135    95
 f(177) memory(175):  216   161     3  [  0]  132    92   253
 f(178) memory(176):  161     3   215  [  0]  133    38    41
 f(179) memory(177):    3   215   130  [  0]  164   167   126
 f(180) memory(178):  215   130    55  [  0]  112    71   201
 f(181) memory(179):  130    55   123  [  0]  204    78   133
 f(182) memory(180):   55   123   239  [  0]   95   150    17
 f(183) memory(181):  123   239    32  [  0]  118   241   224
 f(184) memory(182):  239    32   125  [  0]  116    99   131
 f(185) memory(183):   32   125    39  [  0]   60    92   217
 f(186) memory(184):  125    39   191  [  0]  157    26    65
 f(187) memory(185):   39   191   138  [  0]  144   183   118
 f(188) memory(186):  191   138   219  [  0]  220   155    37
 f(189) memory(187):  138   219   159  [  0]  252   134    97
 f(190) memory(188):  219   159   255  [  0]  135    98     1
 f(191) memory(189):  159   255   216  [  0]  138    41    40
 f(192) memory(190):  255   216   217  [  0]   80    79    39
 f(193) memory(191):  216   217    27  [  0]   52    12   229
 f(194) memory(192):  217    27   103  [  0]  165   126   153
 f(195) memory(193):   27   103   226  [  0]  156   183    30
 f(196) memory(194):  103   226   223  [  0]  216    63    33
 f(197) memory(195):  226   223   243  [  0]   76    46    13
 f(198) memory(196):  223   243   111  [  0]  191   158   145
 f(199) memory(197):  243   111    64  [  0]   94    81   192
 f(200) memory(198):  111    64   117  [  0]  220    75   139
 f(201) memory(199):   64   117   159  [  0]  172   236    97
 f(202) memory(200):  117   159   143  [  0]   93   210   113
 f(203) memory(201):  159   143   202  [  0]    8   167    54
 f(204) memory(202):  143   202     3  [  0]  164    51   253
 f(205) memory(203):  202     3    55  [  0]  252   198   201
 f(206) memory(204):    3    55   255  [  0]  199   202     1
 f(207) memory(205):   55   255   152  [  0]   50   105   104
 f(208) memory(206):  255   152    17  [  0]   88    87   239
 f(209) memory(207):  152    17   115  [  0]  228   124   141
 f(210) memory(208):   17   115   247  [  0]  133   150     9
 f(211) memory(209):  115   247   130  [  0]   20   135   126
 f(212) memory(210):  247   130     7  [  0]  128   119   249
 f(213) memory(211):  130     7    43  [  0]   76   206   213
 f(214) memory(212):    7    43   111  [  0]   95   102   145
 f(215) memory(213):   43   111    32  [  0]   70   113   224
 f(216) memory(214):  111    32   109  [  0]    4   115   147
 f(217) memory(215):   32   109    87  [  0]   28    60   169
 f(218) memory(216):  109    87    95  [  0]  221    74   161   (221+1)/3=74
 f(219) memory(217):   87    95    74  [  0]    0    87   182

 
Pamet v #:
  226   255   211   111    64   213   127   207    74    35   151   255    24   113   211    55   
  130    39    11   111    32   205    55   159   202   203   239   127   152   169   107   199
   98   207     3   239   192   197    47   111   138   243     7   127   216   225    67    87   
  130   247   187   239    32   189   103    63   138   155   223   255   216    25    91   231
  226   159    51   111    64   181   223    15   202   195   119   255   152    81   179   119
  130   199   107   111    32   173   151   223    74   107   207   127    24   137    75     7
   98   111    99   239   192   165   143   175    10   147   231   127    88   193    35   151   
  130   151    27   239    32   157   199   127    10    59   191   255    88   249    59    39   
  226    63   147   111    64   149    63    79    74    99    87   255    24    49   147   183   
  130   103   203   111    32   141   247    31   202    11   175   127   152   105    43    71   
   98    15   195   239   192   133   239   239   138    51   199   127   216   161     3   215   
  130    55   123   239    32   125    39   191   138   219   159   255   216   217    27   103   
  226   223   243   111    64   117   159   143   202     3    55   255   152    17   115   247   
  130     7    43   111    32   109    87    95    74     0  [  0]   87   182     0     0     0   
         \n           o    _    l      W     e     H
         10         111    32   108    87    101   72
                      r     !                d
                    114    33                100
  0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     0     
  0     0     0     0     0     0     0     0     0     0     0     0    86    57   123   167


72 101 108 108 111 32   87 111 114 108 100 33 10
H  e   l   l   o   _    W  o   r   l   d   !

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
 Předmět příspěvku: Re: Brainfuck
PříspěvekNapsal: 14.02.2016, 17:04 
Offline
Pan Štábní

Registrován: 23.06.2013, 23:49
Příspěvky: 1100
Has thanked: 100 times
Been thanked: 157 times
Je k tomu nejaky komentar, kde ukazuje jak u toho repetetivniho vzorce se vypocita dalsi hodnota. Na tom je nejvtipnejsi to, ze se to pocita z predchozich hodnot, ale ty ve skutecnosti lezi nalevo od aktivni bunky a pocita se to z mezivypoctu lezicich napravo. Ale vzorec sedi.
Kód:
f(n) = 171*( -f(n-1) -f(n-2) -f(n-3) +1 )

Pri f(0) = 57, f(1) = 123 a f(2) = 167

f(3) = 171*(-167 -123 -57 +1)
f(3) = 171*(-346)            = -59166
f(3) = 171*(-90)            = -59166 + 232*256
f(3) = 171*166            = 226
f(3) = 28386
f(3) = 226

f( 0 )=   57      
f( 1 )=   123      
f( 2 )=   167   -59166   226
f( 3 )=   226   -88065   255
f( 4 )=   255   -110637   211
f( 5 )=   211   -118161   111
f( 6 )=   111   -98496   64
f( 7 )=   64   -65835   213
f( 8 )=   213   -66177   127
f( 9 )=   127   -68913   207
f( 10 )=   207   -93366   74
f( 11 )=   74   -69597   35
f( 12 )=   35   -53865   151
f( 13 )=   151   -44289   255
f( 14 )=   255   -75240   24
f( 15 )=   24   -73359   113
f( 16 )=   113   -66861   211
f( 17 )=   211   -59337   55
f( 18 )=   55   -64638   130
f( 19 )=   130   -67545   39
f( 20 )=   39   -38133   11
f( 21 )=   11   -30609   111
f( 22 )=   111   -27360   32
f( 23 )=   32   -26163   205
f( 24 )=   205   -59337   55
f( 25 )=   55   -49761   159
f( 26 )=   159   -71478   202
f( 27 )=   202   -70965   203
f( 28 )=   203   -96273   239
f( 29 )=   239   -109953   127
f( 30 )=   127   -97128   152
f( 31 )=   152   -88407   169
f( 32 )=   169   -76437   107
f( 33 )=   107   -73017   199
f( 34 )=   199   -81054   98
f( 35 )=   98   -68913   207
f( 36 )=   207   -86013   3
f( 37 )=   3   -52497   239
f( 38 )=   239   -76608   192
f( 39 )=   192   -74043   197
f( 40 )=   197   -107217   47
f( 41 )=   47   -74385   111
f( 42 )=   111   -60534   138
f( 43 )=   138   -50445   243
f( 44 )=   243   -83961   7
f( 45 )=   7   -66177   127
f( 46 )=   127   -64296   216
f( 47 )=   216   -59679   225
f( 48 )=   225   -96957   67
f( 49 )=   67   -86697   87
f( 50 )=   87   -64638   130
f( 51 )=   130   -48393   247
f( 52 )=   247   -79173   187
f( 53 )=   187   -96273   239
f( 54 )=   239   -114912   32
f( 55 )=   32   -78147   189
f( 56 )=   189   -78489   103
f( 57 )=   103   -55233   63
f( 58 )=   63   -60534   138
f( 59 )=   138   -51813   155
f( 60 )=   155   -60705   223
f( 61 )=   223   -88065   255
f( 62 )=   255   -108072   216
f( 63 )=   216   -118503   25
f( 64 )=   25   -84645   91
f( 65 )=   91   -56601   231
f( 66 )=   231   -59166   226
f( 67 )=   226   -93537   159
f( 68 )=   159   -105165   51
f( 69 )=   51   -74385   111
f( 70 )=   111   -54720   64
f( 71 )=   64   -38475   181
f( 72 )=   181   -60705   223
f( 73 )=   223   -79857   15
f( 74 )=   15   -71478   202
f( 75 )=   202   -75069   195
f( 76 )=   195   -70281   119
f( 77 )=   119   -88065   255
f( 78 )=   255   -97128   152
f( 79 )=   152   -89775   81
f( 80 )=   81   -83277   179
f( 81 )=   179   -70281   119
f( 82 )=   119   -64638   130
f( 83 )=   130   -73017   199
f( 84 )=   199   -76437   107
f( 85 )=   107   -74385   111
f( 86 )=   111   -71136   32
f( 87 )=   32   -42579   173
f( 88 )=   173   -53865   151
f( 89 )=   151   -60705   223
f( 90 )=   223   -93366   74
f( 91 )=   74   -76437   107
f( 92 )=   107   -68913   207
f( 93 )=   207   -66177   127
f( 94 )=   127   -75240   24
f( 95 )=   24   -61047   137
f( 96 )=   137   -49077   75
f( 97 )=   75   -40185   7
f( 98 )=   7   -37278   98
f( 99 )=   98   -30609   111
f( 100 )=   111   -36765   99
f( 101 )=   99   -52497   239
f( 102 )=   239   -76608   192
f( 103 )=   192   -90459   165
f( 104 )=   165   -101745   143
f( 105 )=   143   -85329   175
f( 106 )=   175   -82422   10
f( 107 )=   10   -55917   147
f( 108 )=   147   -56601   231
f( 109 )=   231   -66177   127
f( 110 )=   127   -86184   88
f( 111 )=   88   -76095   193
f( 112 )=   193   -69597   35
f( 113 )=   35   -53865   151
f( 114 )=   151   -64638   130
f( 115 )=   130   -53865   151
f( 116 )=   151   -73701   27
f( 117 )=   27   -52497   239
f( 118 )=   239   -71136   32
f( 119 )=   32   -50787   157
f( 120 )=   157   -73017   199
f( 121 )=   199   -66177   127
f( 122 )=   127   -82422   10
f( 123 )=   10   -57285   59
f( 124 )=   59   -33345   191
f( 125 )=   191   -44289   255
f( 126 )=   255   -86184   88
f( 127 )=   88   -91143   249
f( 128 )=   249   -101061   59
f( 129 )=   59   -67545   39
f( 130 )=   39   -59166   226
f( 131 )=   226   -55233   63
f( 132 )=   63   -55917   147
f( 133 )=   147   -74385   111
f( 134 )=   111   -54720   64
f( 135 )=   64   -54891   149
f( 136 )=   149   -55233   63
f( 137 )=   63   -47025   79
f( 138 )=   79   -49590   74
f( 139 )=   74   -36765   99
f( 140 )=   99   -42921   87
f( 141 )=   87   -44289   255
f( 142 )=   255   -75240   24
f( 143 )=   24   -62415   49
f( 144 )=   49   -55917   147
f( 145 )=   147   -37449   183
f( 146 )=   183   -64638   130
f( 147 )=   130   -78489   103
f( 148 )=   103   -70965   203
f( 149 )=   203   -74385   111
f( 150 )=   111   -71136   32
f( 151 )=   32   -58995   141
f( 152 )=   141   -48393   247
f( 153 )=   247   -71649   31
f( 154 )=   31   -71478   202
f( 155 )=   202   -81909   11
f( 156 )=   11   -41553   175
f( 157 )=   175   -66177   127
f( 158 )=   127   -53352   152
f( 159 )=   152   -77463   105
f( 160 )=   105   -65493   43
f( 161 )=   43   -51129   71
f( 162 )=   71   -37278   98
f( 163 )=   98   -36081   15
f( 164 )=   15   -31293   195
f( 165 )=   195   -52497   239
f( 166 )=   239   -76608   192
f( 167 )=   192   -106875   133
f( 168 )=   133   -96273   239
f( 169 )=   239   -96273   239
f( 170 )=   239   -104310   138
f( 171 )=   138   -105165   51
f( 172 )=   51   -73017   199
f( 173 )=   199   -66177   127
f( 174 )=   127   -64296   216
f( 175 )=   216   -92511   161
f( 176 )=   161   -86013   3
f( 177 )=   3   -64809   215
f( 178 )=   215   -64638   130
f( 179 )=   130   -59337   55
f( 180 )=   55   -68229   123
f( 181 )=   123   -52497   239
f( 182 )=   239   -71136   32
f( 183 )=   32   -67203   125
f( 184 )=   125   -67545   39
f( 185 )=   39   -33345   191
f( 186 )=   191   -60534   138
f( 187 )=   138   -62757   219
f( 188 )=   219   -93537   159
f( 189 )=   159   -88065   255
f( 190 )=   255   -108072   216
f( 191 )=   216   -107559   217
f( 192 )=   217   -117477   27
f( 193 )=   27   -78489   103
f( 194 )=   103   -59166   226
f( 195 )=   226   -60705   223
f( 196 )=   223   -94221   243
f( 197 )=   243   -118161   111
f( 198 )=   111   -98496   64
f( 199 )=   64   -71307   117
f( 200 )=   117   -49761   159
f( 201 )=   159   -57969   143
f( 202 )=   143   -71478   202
f( 203 )=   202   -86013   3
f( 204 )=   3   -59337   55
f( 205 )=   55   -44289   255
f( 206 )=   255   -53352   152
f( 207 )=   152   -78831   17
f( 208 )=   17   -72333   115
f( 209 )=   115   -48393   247
f( 210 )=   247   -64638   130
f( 211 )=   130   -83961   7
f( 212 )=   7   -65493   43
f( 213 )=   43   -30609   111
f( 214 )=   111   -27360   32
f( 215 )=   32   -31635   109
f( 216 )=   109   -42921   87
f( 217 )=   87   -38817   95
f( 218 )=   95   -49590   74
f( 219 )=   74   -43605   171

Dal bych k tomu lepsi komentar, ale jde to mimo me, tohle nedavam. Proste pouzije repetetivni smycku, ktera se pri 220 vypoctu zastavi, protoze vygeneruje nulu. Obsah nalevo od te nuly obsahuje hodnoty vhodne na ten text.

_________________
Z80 Forth compiler (ZX Spectrum 48kb): https://codeberg.org/DW0RKiN/M4_FORTH


Nahoru
 Profil  
 
Zobrazit příspěvky za předchozí:  Seřadit podle  
Odeslat nové téma Odpovědět na téma  [ Příspěvků: 26 ]  Přejít na stránku Předchozí  1, 2

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 2 návštevníků


Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Hledat:
Přejít na:  
Založeno na phpBB® Forum Software © phpBB Group
Český překlad – phpBB.cz