Forum tama's team

cp: ne peut évaluer `brain': Aucun fichier ou dossier de ce type
AccueilPortailGalerieCalendrierFAQRechercherS'enregistrerMembresGroupesConnexion
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Derniers sujets
» Network, essai 1
par godbod Dim 09 Juil 2017, 02:18

» GODBOD
par godbod Sam 08 Juil 2017, 14:05

» Numbers
par godbod Sam 08 Juil 2017, 13:54

» Mort ?
par godbod Sam 08 Juil 2017, 13:47

» mon humeur
par Ver2guerre Sam 30 Juil 2016, 19:44

» [A voir] Programme de traduction original : WikiTranslate
par AdRiWeB Lun 01 Fév 2016, 04:50

» Reprise ?
par Emyl Jeu 14 Juin 2012, 21:17

» Euh, ah ?
par Ver2guerre Dim 27 Mai 2012, 12:11

» Problème TI 89 Titanium non visible après mise à jour
par abdoukid Mer 23 Mai 2012, 13:37

» Y'a quelqu'un ?
par Ver2guerre Sam 21 Avr 2012, 23:10

Quick message
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 367 le Dim 18 Oct 2009, 00:16

Partagez | 
 

 [z80] Delete

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: [z80] Delete   Jeu 18 Sep 2008, 17:25

Le but de ce défi est simple : il suffit simplement de faire un code pour supprimer un ou plusieurs éléments de la liste L1 (qu'on suppose déjà définie au moment de lancer le programme, mais pas forcément à la bonne taille !)

les arguments sont passés dans Ans, de la forme
{indice_du_premuer_element, nombre_d_elements_a_supprimer}


Exemple, si ce n'est pas assez clair :

-> L1 = {1, 2, 3, 4, 5, 6}
-> {3,2}:prgmDELETE (ou autre nom....) //efface 2 éléments à partiir du 3ème
-> L1 = {1, 2, 5, 6}


Programme évalué sur la taille et sur la rapidité
bonne chance Wink

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3781
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: [z80] Delete   Jeu 18 Sep 2008, 19:27

J'ai encore pas utiliser de liste dans un prgm, donc c'est pas pour moi encore %]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Jeu 18 Sep 2008, 20:08

'tin le post pour rien dire %)

Bon, en tout cas j'ai réussi à faire un truc en 65 octets (environ 710 ms pour 1 exécution)
Y a largement mieux, à mon avis ^^

Allez-y Wink

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3781
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: [z80] Delete   Jeu 18 Sep 2008, 22:33

Citation :
'tin le post pour rien dire %)

Osef c'est ton espace perso Razz
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Jeu 18 Sep 2008, 22:38

Citation :

Forum tama's team :: Programmation :: Défis/Optimisation


euuuuuh non ... triso

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
nay0w
légende
légende


Nombre de messages : 797
Age : 24
Localisation : Dans l'coin!
Humeur : Bonne x)
items : o
Personalized field : 10 jetons
Réputation : 0
Points : 3781
Date d'inscription : 11/02/2008

Profil
TI: 82Fr / 89-Titanium
TO: 3 825
Spécialité: Autre

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 15:53

Merde jsuis trop con xD

Jcroyais triso
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 16:13



environ 100 octets je crois

programme quasi-instantane sur une 84+

marche si la variable I est non-existante (ou vaut 0)

( ) : code mis en hide

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...


Dernière édition par AdRiWeB le Ven 19 Sep 2008, 18:00, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 17:50

euh bah t'as dû te tromper en le recopiant parce que moi je vois taille de 91 octets (103 - 12) et ça marche pas en plus (ça sort une liste remplie de 0)
^^

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 17:59

ca fait plus d'octets sur la calto, bref

mais je confirme que ca marche (et c'est rapide !!)

verifie que t'as pas oublie une virgule, une parenthese ou un truc du genre

Ah ben oui, em recopiant, j'avais zappe un 'End' ^^

il faut qussi que la variable I vale 0 (ou n'existe pas)
et vide les liste ca sera ptet mieux (jpense pas que ca fasse grand chose mais bon)

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 18:55

Citation :

marche si la variable I est non-existante (ou vaut 0)

bah euh ^^
ça marche uniquement dans ce cas ? pas terrible %)

bon, anyway, ça donne 93 octets (105 - 12) pour un temps de ...
non, toujours pas, INVALID DIM triso

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 19:43

rhaa

j'ai teste ca marche parfaitement avec moi :S

un SetUpEditor et une variable I vide


tu veux un screenshot ? xD

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 20:01

mouarf ok j'ai réussi, mais c'est vraiment pas terrible avec les listes supplémentaires et tout %)

bon, voici ma proposition :
(mis en hide, il faut poster pour voir ^^)



Bon, sûrement optimisable encore une fois ^^
C'est le premier qui m'est venu à l'esprit quand j'ai réfléchi à propos de ça

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 20:11

bonne solution aussi

mais du coup, mon programme est plus rapide et plus court, non ?

Very Happy

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Ven 19 Sep 2008, 20:17

bah non, puisque le mien ne fait qu'une seule boucle, et pas 2 ^^
et pis j'ai économisé près de 30 octets :p

d'ailleurs ton programme ne gère pas le cas où des données incorrectes sont entrées :p, si j'supprimais les 2 lignes qui s'occupent de ça, j'descendrais en dessous de 60 :p

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 15:29

Yé je participe ! Justement j'avais déjà trouvé une astuce que je vais pouvoir réutiliser (espérons que je suis le seul à la connaître).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 15:53

Hé hé, on a eu la même idée . Tiens essaye le cas où L1={1,2,3,4} et Ans={3,2} ^^.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 16:15

Euh ton code fait 78o, pas 64. En plus j'ai trouvé un code avec 1o de moins et plus rapide (et qui marche pour les 2 lignes qui servent à éviter l'erreur).

Code:

:Ans->T
:Ans(2->N
:sum(LT->S
:dim(L1->A
:If 1+Ans<S
:Return
:For(Z,S,Ans
:L1(Z->L1(Z-N
:End
:A-N->dim(L1

( ) mis en code


Dernière édition par Baruch le Sam 20 Sep 2008, 16:31, édité 3 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 16:23

bah oui, 78 avec le nom (d'ailleurs j'ai 77) en corrigeant le code :



Voilà ça marche maintenant dans le cas que t'as cité :p

Ton code marche pas, j'me suis p'tet trompé dans le recopiage, mais ça fait rien, la liste reste la même
Pas mal l'astuce du L oublié pour la 1ère ligne, j'ai gagné 1 octet ^^, ça me fait donc 76, avec 12 pour le nom

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 16:30

exact, j y avais pas pense non plus au L quon peut supprimer ;P

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 16:34

Enfait j'utilise la variable S=D+N, parce-que D n'est jamais utilisé seul, il est toujours dans la formule D+N.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 16:35

Bien joué, Baruch, 71 octets avec le nom, soit 59 sans
on a gagné 5 octets
Wink

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
AdRiWeB
amis
amis
avatar

Nombre de messages : 3655
Age : 25
Localisation : Juste sous mes cheveux
Loisirs : Internet, programmation, TI, musique, tennis-de-table ...
Humeur : ^^
items : o
Personalized field :
Réputation : 0
Points : 3811
Date d'inscription : 12/08/2007

Profil
TI: TI-84 Plus, nspire CAS
TO: 2429 {2}
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 17:21

prochaine etape : demander a weregoose

qui va nous pulveriser en economisant 20 ocrets
xD


Je le propose sur UTI ?

_________________

LE blog des 83+ et 84+ : programmes scolaires, aides, deblocages, jeux...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.adriweb.net
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 17:30

:Ans->T
:sum(Ans->S
:seq(L1(Z-1),Z,2,LT(1
:If S<=dim(L1
:augment(Ans,seq(L1(Z),Z,S,dim(L1


Dernière édition par Baruch le Sam 20 Sep 2008, 17:53, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 6969
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 17:42

AdRiWeB a écrit:
prochaine etape : demander a weregoose

qui va nous pulveriser en economisant 20 ocrets
xD


Je le propose sur UTI ?

si tu veux :p

Baruch > t'as changé quoi ?

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Baruch
OPTIMIZATOR
OPTIMIZATOR
avatar

Nombre de messages : 193
Age : 25
items :
Personalized field :
Réputation : 0
Points : 3389
Date d'inscription : 07/08/2008

Profil
TI: 83+
TO: 200
Spécialité: Basic z80

MessageSujet: Re: [z80] Delete   Sam 20 Sep 2008, 17:44

Un peu de réordonnage pour arranger les Ans, et j'ai transformé ça :

:seq(Z,Z,1,LT(1)-1

en ça :

:seq(Z-1,Z,2,LT(1
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: [z80] Delete   

Revenir en haut Aller en bas
 

[z80] Delete

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum tama's team :: TI :: Défis-
Créer un forum | © phpBB | Forum gratuit d'entraide | Contact | Signaler un abus | Forum gratuit