TETRIS EN 1 LIGNE

[drfloyd]

Tetris en 1 ligne en BBC Basic :

0d=d:IFdVDUd:a=POINT(32*POS,31-VPOS<<5):RETURNELSEMODE9:GCOL-9:CLG:O
FF:d=9:REPEATVDU30:REPEATGOSUBFALSE:IFPOS=28VDUPOS,15,VPOS,24;11,26:IF0E
LSEIFa=0PRINT:UNTIL0ELSEUNTILVPOS=25:v=ABSRNDMOD7:i=0:VDU4895;3:REPEATm=
9-INKEY6MOD3:FORr=TRUETO1:t=rANDSGNt:IFt=rCOLOURv-15:VDUrEORm:i+=m=7AND9
-6*r:IF0ELSEFORn=0TO11:d=n/3OR2EORd:GOSUBFALSE:IF1<<(n+i)MOD12AND975AND&
C2590EC/8^vVDU2080*ABSr;:t+=a:IF0ELSENEXT,:VDU20:UNTILt*LOGm:UNTILVPOS=3


A voir si vous voulez l'adapter sur un autre support :)

A savoir que le BBC basic etait dans les années 80 surement le basic le plus puisssant/rapide de tout le marché 8 Bit.

source
https://survex.com/~olly/rheolism/dsm_rheolism/

[lincruste]

Pas réussi à l'exécuter sans plantage

[Tryphon]

Pour avoir déjà codé un Tetris, je doute TRÈS fortement que ça en soit un. À mon avis ça gère le placement et la rotation des pièces, mais pas la détection de ligne et encore moins la "descente" des lignes au-dessus après disparition.

J'ai toujours trouvé cette façon d'écrire les codes de la façon la plus rapide et la moins lisible possible complètement absurde.

Y'a qu'à créer un Tetris Basic dans lequel il y a une instruction TETRIS() qui lance un Tetris, et hop, record battu.

[drfloyd]

je vois pas en quoi c'est absurde, c'est un défis

C'etait pour un challenge dans ce cas précis

je ne sais pas si il gère tout comme un vrai Tetris, j'ai beaucoup de mal à décoder ce code....

[lincruste]

Je comprends très bien le délire de vouloir écrire le code le plus compact possible pour la beauté du geste, des choix algorithmiques jusqu'au nom des variables quitte à rendre le truc illisible, c'est un exercice intellectuel comme un autre, par contre leur truc là ça marche pas.

[lincruste]

je vois pas en quoi c'est absurde, c'est un défis

C'etait pour un challenge dans ce cas précis

je ne sais pas si il gère tout comme un vrai Tetris, j'ai beaucoup de mal à décoder ce code....

T'as réussi à l'exécuter déjà ?