C question about scanf

Vasilis Vasaitis vvas at hal.csd.auth.gr
Wed Sep 15 19:33:25 EEST 1999


On Wed, Sep 15, 1999 at 12:04:10PM +0300, Bassoukos Tassos wrote:
> 
> Xrhsimopoieis perl, kai oute pou koitas thn C.
> 
> #!/usr/local/bin/perl -w
> $line=<>;
> chomp $line;
> @tokens=split $line;
> foreack $i (0..$#tokens){
>   print "$i $tokens[$i]\n";
> }

  Άμα είναι να το πάμε έτσι, κι εγώ θα σου πω: χρησιμοποιείς scheme, και
ούτε που κοιτάς τις άλλες[0]:

#!/usr/bin/guile -s
!#

(define lt (make-vector 6))

(let loop
    ((i 0))
  (if (< i 6)
      (begin
        (vector-set! lt i (read))
        (loop (+ i 1)))))

(let loop
    ((i 0))
  (if (< i 6)
      (begin
        (display i)
        (write-char #\space)
        (display (vector-ref lt i))
        (newline)
        (loop (+ i 1)))))

  Παρεπιπτόντως, το προγραμματάκι σου δεν δουλεύει (κοίτα τη σύνταξη της
split). Δοκίμασε κάτι τέτοιο[1]:

#!/usr/bin/perl

foreach $token (split /\s+/, <>) {
    print $i++, " ", $token, "\n";
}

> ... kai meta fysika yparxei kai to Math::BigInteger ...

  Η scheme έτσι κι αλλιώς έχει μεγάλους αριθμούς εξ ορισμού...


[0] Ναι, είμαι πορωμένος με την perl όσο κι εσύ.
[1] TMTOWTDI :-)

-- 
Vasilis Vasaitis
vvas at hal.csd.auth.gr

Nuke them till they glow, then shoot them in the dark.


--
====================================================================
Gia boithia (h na diagrafhte) e-mail sto majordomo at hellug.gr
Ta archives tis listas einai sto http://lists.hellug.gr/archives
prin steilete kapoia erothsh psakte mipos exei hdh apanththei.
Gia opoiodipote problima stilte e-mail ston owner-linux-greek-users at hellug.gr
====================================================================



More information about the Linux-greek-users mailing list