-+  Associazione
-+  Documenti
-+  Eventi
-+  Community
-+  Blog
-+  Link

Ottobre 2013

Dom Lun Mar Mer Gio Ven Sab
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    

Cerca






 

« Ciò che senza Perl non si sarebbe potuto fare | Home | Pagina 46 - post mortem di "Per i solutori più che abili" »

Per i solutori più che abili
09.08.04

Girando in rete mi sono imbattuto in questo problema, che poi è una scusa per studiare un po' meglio il linguaggio che vanta più tentativi di imitazione.

Enunciarlo è semplice, ma non lo è altrettanto trovare la soluzione (trovo che questo genere di problemi sia il migliore). Nel programmino qui sotto mettete del codice al posto di XXX (e solo lì), in maniera tale che il programma stampi "ok".

XXX;
undef and print "ok";

Inviato da larsen il 09.08.04 23:20
Ti è piaciuto questo articolo? Iscriviti al feed!

Inviato da gmax il 10.08.04 08:45

Ecco la mia soluzione:

$;=sub{1};@_= sort $;
undef and print "OK";

Inviato da kral il 10.08.04 10:34

Ma non dovrebbe essere:

$;=sub{1};@_= sort $;;
undef and print "OK";

?

Altrimenti è una fregatura :)

Inviato da larsen il 10.08.04 11:03

Fregature?
Eccone un'altra :)

print "OK";
undef and print "OK";

Inviato da kral il 10.08.04 11:09

Ok, diciamo allora che ci sono varie "interpretazioni" del problema! :)










Devo ricordare i dati personali?






D:
Sull'autore...
D:
La ML di Perl.it
Iscriviti! mongers@lists.perl.it è la lista ufficiale di Perl Mongers Italia per porre quesiti di tipo tecnico, per rimanere aggiornato su meeting, incontri, manifestazioni e novità su Perl.it.
D:
Annunci Google