453 résultats trouvés

par babaorhum
20 févr. 2015 19:08
Forum : Pocketicaires
Sujet : 13 ème mini-pocketicaires - T1/2015 :lundi 30 mars 2015 (14)
Réponses : 76
Vues : 79634

Re: 13 ème mini-pocketicaires - T1/2015 : lundi 30 mars 2015

Youpi !

Je crois que ca tombe bien ce coup ci ... je devrais être sur Paris le 30 mars ...
Donc partant !! et avec beaucoup de plaisir de vous retrouver ou de vous découvrir !

Merci Ledudu

@ bientôt
par babaorhum
15 févr. 2015 22:38
Forum : Tous les Pockets
Sujet : [Challenge mono-ligne] Traitement chaine
Réponses : 14
Vues : 9695

Re: [Challenge mono-ligne] Traitement chaine

un petit essai timide en 12 pas sur HP42S (ou 41C) :

Code : Tout sélectionner

01  LBL"PROD"
02  1
03  AON
04  PROMPT
05  LBL 00
06  ATOX
07  X=0?
08  RTN
09  64
10   -
11   x
12   GTO 00

Pas de chrono mais ca va assez vite sur 42s !
par babaorhum
15 févr. 2015 15:37
Forum : Tous les Pockets
Sujet : [Challenge Mono-ligne] Calcul d'indice
Réponses : 42
Vues : 20988

Re: [Challenge Mono-ligne] Calcul d'indice

charognard a écrit : Euh .... normal le PRINT est persistant. il faut appuyer sur RETURN
... évident maintenant que tu le dis ... :oops: dsl
par babaorhum
15 févr. 2015 15:13
Forum : Tous les Pockets
Sujet : [Challenge Mono-ligne] Calcul d'indice
Réponses : 42
Vues : 20988

Re: [Challenge Mono-ligne] Calcul d'indice

Et Bravo Charo !

Effectivement ca rentre bien dans une ligne. Avec ton truc de la fin " PRINT CHR$(65*R) + S$ " , on arrive même à caser le BEEP !

Code : Tout sélectionner

1 CLEAR:INPUT A$:R=1:FOR I=LEN A$ TO 1 STEP -1:C=ASC MID$(A$,I,1)+R:R=C>90:S$=CHR$(C-26*R)+S$:NEXT I:BEEP 1 :PRINT CHR$(65*R)+S$
Un effet étrange de cette ligne est que je dois mettre le BEEP avant le PRINT ; en bout de ligne, le BEEP 1 ne fonctionne pas quand on exécute le programme (sur mon 1261) ... mystère ...
par babaorhum
15 févr. 2015 12:59
Forum : Tous les Pockets
Sujet : [Challenge Mono-ligne] Calcul d'indice
Réponses : 42
Vues : 20988

Re: [Challenge Mono-ligne] Calcul d'indice

c'est pour avoir s="" - 3 octets de moins avec le CLEAR
par babaorhum
15 févr. 2015 12:38
Forum : Tous les Pockets
Sujet : [Challenge Mono-ligne] Calcul d'indice
Réponses : 42
Vues : 20988

Re: [Challenge Mono-ligne] Calcul d'indice

Hello,

Je bute aussi avec mon PC-1261 j'arrive à 82 octets pour l'instant , ca ne rente pas dans une ligne ...

Code : Tout sélectionner

1 CLEAR:INPUT A$:R=1:FOR I=LEN A$ TO 1 STEP -1:C=ASC MID$(A$,I,1)+R:R=C>90:S$=CHR$(C-26*R)+S$:NEXT I:S$=CHR$(32+R*33)+S$:PRINT S$
peut être qu'avec un 1211, on arrive a éviter 2 parenthèses et le faire entre dans une ligne ? (j'ai pas de 1211 ...)

Merci Charo pour ce défi, pas simple finalement !
par babaorhum
08 févr. 2015 01:18
Forum : Bidouilles
Sujet : Un Omnibook 800 CT avec un SSD ?
Réponses : 24
Vues : 28117

Re: Un Omnibook 800 CT avec un SSD ?

Vous allez me pendre pour un hurluberlu mais je me suis souvent demandé pourquoi on avait imposé le AZERTY des vieilles machines écrire sur les ordi franchouillards ... (à part augmenter le prix et complexifier le hardware)
Je trouve que l'ordre des claviers QWERTY est plus logique : les parenthèses, les crochets, et sans faire de "alt Gr" - pouvez vous me dire pourquoi le "{" est sous le "4" et le "}" sous le "+" en AZERTY ?

a l'usage, on s'habitue très vite au QWERTY - et puis avoir les chiffres sans le shift, j'aime bien (quand on a pas de pavé numérique bien sûr) ... et surtout quand on fait un peu de programmation le QWERTY est alors bien plus efficace ... bref je me dis qu'avoir un QWERTY avec des caractères accentués c'était aussi une solution. non ?
par babaorhum
18 janv. 2015 18:57
Forum : Tous les Pockets
Sujet : Gazette N° 5 - PUBLIÉE !!!
Réponses : 136
Vues : 58797

Re: Gazette N° 5 - planification

gege a écrit : L'un parlera des défis Euler mais vu mon classement, d'autres pourraient prendre la main ?
Tu veux dire "défis Turing" Gégé ?
Et si on parle de classement au Turing et de programmation sur un pocket, un nom s'impose (qui commence par "B") ... J'aimerai bien voir quelques techniques de programmation pour les calculs des grands nombres ...
... Quant à ma participation à la Gazette n°5, c'est si je trouve un sujet pouvant intéresser ...
par babaorhum
01 déc. 2014 23:38
Forum : Tous les Pockets
Sujet : Défi Turing : du MPO à la pelle
Réponses : 39
Vues : 21804

Re: Défi Turing : du MPO à la pelle

bernouilli92 a écrit :@calobugs : merci, je vais regarder cela.

Je vois que babaorhum nous a également rejoint, même s'il n'apparaît pas encore dans le classement.
Et gege progresse très vite, il a déjà rejoint C.Ret.
De mon côté, je commence à ralentir, les problèmes les plus faciles à mon goût ont été faits, ceux qui restent sont plus difficiles. J'ai quand même réussi à en faire un aujourd'hui.
Coucou,
Je n'ai pas échappé à la sagacité de Bernouili !
oui, je m'y met doucement au Turing, c'est sympa ... sans soucis d'optimisation en ce qui me concerne ... et en avançant à mon rythme de tortue ...
je me remets en route sur mon vieux Turbo Pascal 7.0 - que je trouve toujours aussi efficace !
je trouve que le 103 (dernier) est assez simple a résoudre avec un tableur, pas besoin d'enchaîner les boucles dans un code.
En ce qui vous concerne, je trouve votre ascension fulgurante !!
@bientôt
par babaorhum
16 nov. 2014 18:47
Forum : Tous les Pockets
Sujet : Misez p'tit, optimisez n°60 : Calculons Pi comme Viète
Réponses : 143
Vues : 87417

Re: Misez p'tit, optimisez n°60 : Calculons Pi comme Viète

C'est vrai zpalm ...
Il va falloir que Gilles59 fasse le tableau comparatif des solutions et là il y a du boulot !!! des solutions, il y en a pleins - C.Ret a raison , il est très riche en solutions et en machines ce MPO !
par babaorhum
16 nov. 2014 18:19
Forum : Tous les Pockets
Sujet : Misez p'tit, optimisez n°60 : Calculons Pi comme Viète
Réponses : 143
Vues : 87417

Re: Misez p'tit, optimisez n°60 : Calculons Pi comme Viète

Bravo Xerxes,

Le programme le plus court, en 16 octets sur une fx-180p - je ne compte pas les mémoires en ce qui me concerne (débat sans fin ...).

J'ai aussi une solution récursive, qui change un peu, en programmant les 2 fonctions suivantes sur ma TI-92 :

Code : Tout sélectionner

un(n)
Func
when (n=0, √(2), √(2+un(n-1)))
EndFunc

viete(n)
Func
when (n=0, 2, viete(n-1)*2/un(n-1))
EndFunc
C'est assez lent, j'obtiens viete(19) = 3,14159265357 en 7,5 secondes. Mais ca marche !
par babaorhum
12 nov. 2014 22:20
Forum : Frimer - brag - dernières acquisitions
Sujet : [PC-1500] Généreux donateur 2
Réponses : 27
Vues : 15093

Re: [PC-1500] Généreux donateur 2

Hello,
tu n'aurais pas trouvé un PC-1500 AZERTY ? 8O 8O 8O 8O 8O
par babaorhum
12 nov. 2014 21:55
Forum : Tous les Pockets
Sujet : Donnes moi un programme et je te dirais qui tu es ...
Réponses : 35
Vues : 20986

Re: Donnes moi un programme et je te dirais qui tu es ...

Allez trois p'tites photos de la TANDY EC-4026 ... peut-être les premières référencées sur la toile ?
(en terme de première c'est très nettement moins fort que Rosetta et Philae c'est sur ...)
Image Image Image
par babaorhum
11 nov. 2014 22:37
Forum : Tous les Pockets
Sujet : Donnes moi un programme et je te dirais qui tu es ...
Réponses : 35
Vues : 20986

Re: Donnes moi un programme et je te dirais qui tu es ...

C'est la Radio Shack EC-4026, pas la Tandy EC-4026 ... (je ferai une photo de ma machine pour qu'il y en ai une quand même !)
par babaorhum
11 nov. 2014 22:19
Forum : Tous les Pockets
Sujet : Donnes moi un programme et je te dirais qui tu es ...
Réponses : 35
Vues : 20986

Re: Donnes moi un programme et je te dirais qui tu es ...

Etrangement, on ne trouve pas de photo de cette Tandy sur le net (pas trouvé avec Google image tout du moins) ... même sur le site de Ledudu, il n'y a pas de photo ...

C'est un clone d'une machine qui passe relativement inaperçue : la FX-4500p sortie de Casio création en 1988/89

Cette Casio (Tandy) est truffée de fonctions intéressantes et possède un affichage très lisible - ce qui n'est pas le cas de son clavier ... jusqu'à 5 fonctions pour une touche, qui dépendent de la touche pressée avant et du mode dans lequel on travaille ... illisibles un sur le fond noir de cette machine !
Et au niveau rapidité, ce n'est pas foudre de guerre ...
Mais elle est amusante à manipuler.

Dans le programme proposé le triangle vide correspond à la fin du test. Il n'y a pas de contrôle de boucle sur cette machine mais le déroulement des tests ressemble presque à du pascal avec des instructions pour la zone "vrai" et pour la zone "faux", a concurrence de la longueur maximale de la ligne (127 caractères) :

Code : Tout sélectionner

N≥1 => zone instructions si "vrai" (séparées par des :) ≠> zone instructions si "faux" (séparées par des :) ∆

le ∆ est la fin du test ...
et on peut refaire des tests à l'intérieur des zones d'instructions ... étonnant non ?

Aller à la recherche avancée