|
|
Auteur | Message |
---|
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: [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 |
|
| |
nay0w légende
Nombre de messages : 797 Age : 30 Localisation : Dans l'coin! Humeur : Bonne x) items : o Personalized field : 10 jetons Réputation : 0 Points : 6216 Date d'inscription : 11/02/2008
Profil TI: 82Fr / 89-Titanium TO: 3 825 Spécialité: Autre
| Sujet: 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 |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
nay0w légende
Nombre de messages : 797 Age : 30 Localisation : Dans l'coin! Humeur : Bonne x) items : o Personalized field : 10 jetons Réputation : 0 Points : 6216 Date d'inscription : 11/02/2008
Profil TI: 82Fr / 89-Titanium TO: 3 825 Spécialité: Autre
| Sujet: Re: [z80] Delete Jeu 18 Sep 2008, 22:33 | |
| - Citation :
- 'tin le post pour rien dire %)
Osef c'est ton espace perso |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: Re: [z80] Delete Jeu 18 Sep 2008, 22:38 | |
| |
|
| |
nay0w légende
Nombre de messages : 797 Age : 30 Localisation : Dans l'coin! Humeur : Bonne x) items : o Personalized field : 10 jetons Réputation : 0 Points : 6216 Date d'inscription : 11/02/2008
Profil TI: 82Fr / 89-Titanium TO: 3 825 Spécialité: Autre
| Sujet: Re: [z80] Delete Ven 19 Sep 2008, 15:53 | |
| Merde jsuis trop con xD Jcroyais |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: 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
Dernière édition par AdRiWeB le Ven 19 Sep 2008, 18:00, édité 2 fois |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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) ^^ |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: 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) |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: 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 |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: Re: [z80] Delete Ven 19 Sep 2008, 20:11 | |
| bonne solution aussi mais du coup, mon programme est plus rapide et plus court, non ? |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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). |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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} ^^. |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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 |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: Re: [z80] Delete Sam 20 Sep 2008, 16:30 | |
| exact, j y avais pas pense non plus au L quon peut supprimer ;P |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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. |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 |
|
| |
AdRiWeB amis
Nombre de messages : 3655 Age : 31 Localisation : Juste sous mes cheveux Loisirs : Internet, programmation, TI, musique, tennis-de-table ... Humeur : ^^ items : o Personalized field : Réputation : 0 Points : 6246 Date d'inscription : 12/08/2007
Profil TI: TI-84 Plus, nspire CAS TO: 2429 {2} Spécialité: Basic z80
| Sujet: 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 ? |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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 |
|
| |
tama Admin
Nombre de messages : 12376 Age : 32 Localisation : DTC ? :triso: Humeur : =) items : o Personalized field : huh ? oO Réputation : 3 Points : 9405 Date d'inscription : 08/08/2007
Profil TI: 84+, 89 tita, 89 tita TO: infini :p Spécialité: C 68k
| Sujet: 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 ? |
|
| |
Baruch OPTIMIZATOR
Nombre de messages : 193 Age : 32 items : Personalized field : Réputation : 0 Points : 5824 Date d'inscription : 07/08/2008
Profil TI: 83+ TO: 200 Spécialité: Basic z80
| Sujet: 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 |
|
| |
Contenu sponsorisé
| Sujet: Re: [z80] Delete | |
| |
|
| |
|