Forum tama's team
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Forum tama's team

cp: ne peut évaluer `brain': Aucun fichier ou dossier de ce type
 
AccueilPortailGalerieRechercherDernières imagesS'enregistrerConnexion
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Derniers sujets
» Numbers
[z80] Delete Icon_minitimepar Ver2guerre Dim 02 Avr 2023, 00:47

» Mort ?
[z80] Delete Icon_minitimepar godbod Dim 22 Aoû 2021, 12:23

» Network, essai 1
[z80] Delete Icon_minitimepar godbod Dim 09 Juil 2017, 02:18

» GODBOD
[z80] Delete Icon_minitimepar godbod Sam 08 Juil 2017, 14:05

» mon humeur
[z80] Delete Icon_minitimepar Ver2guerre Sam 30 Juil 2016, 19:44

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

» Reprise ?
[z80] Delete Icon_minitimepar Emyl Jeu 14 Juin 2012, 21:17

» Euh, ah ?
[z80] Delete Icon_minitimepar Ver2guerre Dim 27 Mai 2012, 12:11

» Problème TI 89 Titanium non visible après mise à jour
[z80] Delete Icon_minitimepar abdoukid Mer 23 Mai 2012, 13:37

» Y'a quelqu'un ?
[z80] Delete Icon_minitimepar Ver2guerre Sam 21 Avr 2012, 23:10

Quick message
Qui est en ligne ?
Il y a en tout 12 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 12 Invités :: 1 Moteur de recherche

Aucun

Le record du nombre d'utilisateurs en ligne est de 367 le Dim 18 Oct 2009, 00:16
Le Deal du moment : -24%
PC Portable Gaming 15.6″ Medion Erazer Deputy ...
Voir le deal
759.99 €

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
tama

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

[z80] Delete Vide
MessageSujet: [z80] Delete   [z80] Delete Icon_minitimeJeu 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
nay0w
légende
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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeJeu 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
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeJeu 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
nay0w
légende
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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeJeu 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
tama
Admin
Admin
tama

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

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

Citation :

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


euuuuuh non ... triso
Revenir en haut Aller en bas
nay0w
légende
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

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

Merde jsuis trop con xD

Jcroyais triso
Revenir en haut Aller en bas
AdRiWeB
amis
amis
AdRiWeB

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
Revenir en haut Aller en bas
http://www.adriweb.net
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
AdRiWeB
amis
amis
AdRiWeB

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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)
Revenir en haut Aller en bas
http://www.adriweb.net
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
AdRiWeB
amis
amis
AdRiWeB

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
Revenir en haut Aller en bas
http://www.adriweb.net
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
AdRiWeB
amis
amis
AdRiWeB

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

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

bonne solution aussi

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

Very Happy
Revenir en haut Aller en bas
http://www.adriweb.net
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeVen 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
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
AdRiWeB
amis
amis
AdRiWeB

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

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

exact, j y avais pas pense non plus au L quon peut supprimer ;P
Revenir en haut Aller en bas
http://www.adriweb.net
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
AdRiWeB
amis
amis
AdRiWeB

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

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

prochaine etape : demander a weregoose

qui va nous pulveriser en economisant 20 ocrets
xD


Je le propose sur UTI ?
Revenir en haut Aller en bas
http://www.adriweb.net
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
tama
Admin
Admin
tama

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
Baruch
OPTIMIZATOR
OPTIMIZATOR
Baruch

Nombre de messages : 193
Age : 32
items : [z80] Delete Djp_vgn_plus
Personalized field :
Réputation : 0
Points : 5824
Date d'inscription : 07/08/2008

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

[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitimeSam 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
Contenu sponsorisé




[z80] Delete Vide
MessageSujet: Re: [z80] Delete   [z80] Delete Icon_minitime

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 | Signaler un abus | Forum gratuit