Approfitto di questo caldo per presentarvi i
miei mategatti.
Fratello e sorella (anche se non si direbbe),
un anno ad agosto. Vengono da un gattile,
ma sembra quasi che non ci siano mai stati.
Si chiamano Bairon (scritto così) e Martina.
Avevo promesso loro che gli avrei fatto fare
un giro su Base 5...
E ora l'ammazzacaldo.
Ogni serie di quadratini contiene le lettere
di un numero scritto in italiano, mentre le
addizioni sono riferite, naturalmente, ai
numeri veri e propri.
Benissimo, Pasquale!
Possiamo dimostrare se è l'unica?
Comunque, fino a quarantaquattro anni
non avevo la più pallida idea di cosa
significasse partecipare a un forum di
matematica. Peggio: di fatto, non sapevo
neppure cosa fosse un forum!
L'anno successivo, cioè nel 2005, ho
incontrato Base 5 e mi son buttato...
Bruno, potevi dirlo prima, ho strappato tutto, ma ricordo di aver considerato questa cosa ed il risultato era per un'unica soluzione: comunque i numeri esprimibili con 7 e 5 lettere sono pochi ed ancor meno quelli da 6 lettere o da 9, derivanti dalla somma dei primi. Dopodicché i numeri delle somme verticali sono obbligatori.
Per il resto, quando tu Bruno avevi solo 7 anni, dopo aver ascoltato Rocky Roberts, io già mi buttavo qui
Chissà se Pietro, dopo le precauzioni adottate, può adesso attivare l'HTML (?)
_________________
$\text { }$ciao ciao E' la somma che fa il totale (Totò)
Br1 ha scritto:Comunque, fino a quarantaquattro anni
non avevo la più pallida idea di cosa
significasse partecipare a un forum di
matematica. Peggio: di fatto, non sapevo
neppure cosa fosse un forum!
L'anno successivo, cioè nel 2005, ho
incontrato Base 5 e mi son buttato...
Ma guarda!
Siamo coetanei,
Siamo arrivati entrambi all'età "matura" (sigh!) senza sapere un tubo dei forum,
Abbiamo incontrato entrambi Base 5 e da lì è cominciata l'avventura!
Io però ci sono arrivato nel 2006 e mi limito a dilettarmi con i quesiti alla mia portata ed ammirare le risposte fuori quota (in alcuni casi l'ammirazione si limita proprio alla pura estetica perchè veramente certe formule non sò neanche leggerle).
Complimenti e ringraziamenti invece a te che riesci anche a proporci così tanti quesiti interessanti!
Ciao
Franco
ENGINEER
noun. (en-juh-neer)
someone who does precision guesswork based on unreliable data provided by those of questionable knowledge.
See also wizard, magician
Credo che noi giovani d'oggi stiamo perdendo il piacere di scoprire e di stupirsi di come il mondo stia cambiando, purtroppo siamo nati nel vostro futuro.
Una vita senza ricerca
non è degna di essere vissuta.
Socrate
Poco male Jumpy, puoi sempre tentare un tuffo nel passato per capire come il mondo è cambiato, attraverso le innumerevoli possibilità offerte, più o meno multimediali, non escluse le muse e non escludendo l'esperienza altrui e dei nonni in particolare (comunque anche voi avrete un vostro futuro, spero).
_________________
$\text { }$ciao ciao E' la somma che fa il totale (Totò)
Ho ripescato un vecchio programma (in DECIMAL BASIC) che avevo fatto tempo fa per tradurre i numeri da cifre a lettere (funziona da 1 a 1 000 000 000, ma può essere esteso facilmente).
L'avevo scritto per provare una procedura ricorsiva.
Ora ho aggiunto poche linee di codice per trovare tutti i numeri di una data lunghezza, quando sono scritti in cifre.
Può essere utile per scorpire se la soluzione è unica.
Per Pasquale, più sotto ho copiato il programma.
Qui riporto alcuni risultati testati fino a 100 000
--------
numeri di 5 lettere
7 sette
10 dieci
20 venti
100 cento
1000 mille
--------
numeri di 6 lettere
5 cinque
11 undici
12 dodici
16 sedici
30 trenta
--------
numeri di 7 lettere
4 quattro
13 tredici
21 ventuno
80 ottanta
90 novanta
2000 duemila
3000 tremila
6000 seimila
-----------------------------------------------
Ecco il programma (copiandolo qui, sparisce l'indentazione)
-----------------------------------------------
DECLARE EXTERNAL SUB lett99
OPTION BASE 0
PUBLIC STRING n$(1000)
DATA "",uno, due, tre, quattro, cinque, sei, sette, otto, nove, dieci
DATA undici, dodici, tredici, quattordici, quindici, sedici, diciassette, diciotto, diciannove
DATA venti, ventuno, ventotto
DATA trenta, trentuno, trentotto
DATA quaranta, quarantuno, quarantotto
DATA cinquanta, cinquantuno, cinquantotto
DATA sessanta, sessantuno, sessantotto
DATA settanta, settantuno, settantotto
DATA ottanta, ottantuno, ottantotto
DATA novanta, novantuno, novantotto
DATA cento
FOR i=1 TO 100000
LET a=i
LET num$=""
CALL lett99(a, num$)
!'PRINT num$
LET lunghezza=LEN(num$)
!'Inserire qui sotto la lunghezza desiderata
IF lunghezza = 15 THEN PRINT i; num$
NEXT i
PRINT "Finito"
END
EXTERNAL SUB lett99 (a,num$)
IF a=22 AND a=32 AND a=42 AND a=52 AND a=62 AND a=72 AND a=82 AND a=92 AND a=100 AND a=1000 AND a1 THEN
LET num$=pr$&"mila"&rs$
END IF
END IF
IF a>=1000000 AND a1 THEN
LET num$=pr$&"milioni"&rs$
END IF
END IF
IF a=1000000000 THEN LET num$="unmiliardo"
IF a>1000000000 THEN LET num$="Non ci riesco"
END SUB
-----------------------------------------------
in questo programma, invece di una procedura (che si chiama con un CALL), sarebbe stato più logico usare una funzione che si chiama direttamente col nome assegnato.
Ad es.
lett(32) = trentadue
Ma io non so come creare in DECIMAL BASIC una funzione il cui argomento sia un numero e il cui risultato sia una stringa.
Hai qualche idea?
Non è mai troppo tardi!
C'è chi ha conosciuto i forum in età molto più avanzata.Io,ad esempio,avevo già 1/2 secolo di vita dietro le spalle quando ho iniziato a bazzicare da queste parti. E qualcun altro,qualche annetto più di me...vero pasquà ?
Ripensandoci,mi sono ricordato che ,a fine mese,
per l'anagrafe avrò [(1/2)*100]+10 anni...ma non per Base5.
L'interessante che ad esser giovane sia lo spirito,e tu,amico Br1 6 3mendo!
...
