Οδηγίες
Υλοποίησε βασικές πράξεις σε λίστες.
Στις συναρτησιακές γλώσσες, οι πράξεις σε λίστες όπως οι length, map και reduce είναι πολύ συνηθισμένες. Υλοποίησε μια σειρά από βασικές πράξεις σε λίστες, χωρίς να χρησιμοποιήσεις υπάρχουσες συναρτήσεις.
Ο ακριβής αριθμός και τα ονόματα των πράξεων που θα υλοποιήσεις εξαρτώνται από τη διαδρομή, ώστε να αποφευχθούν συγκρούσεις με υπάρχοντα ονόματα, αλλά οι γενικές πράξεις που θα υλοποιήσεις περιλαμβάνουν:
-
append (με δεδομένες δύο λίστες, πρόσθεσε όλα τα στοιχεία της δεύτερης λίστας στο τέλος της πρώτης);
-
concatenate (με δεδομένη μια σειρά από λίστες, συνένωσε όλα τα στοιχεία όλων των λιστών σε μία επίπεδη λίστα);
-
filter (με δεδομένο ένα κατηγόρημα και μια λίστα, επίστρεψε τη λίστα με όλα τα στοιχεία για τα οποία το predicate(item) είναι αληθές);
-
length (με δεδομένη μια λίστα, επίστρεψε τον συνολικό αριθμό των στοιχείων της);
-
map (με δεδομένη μια συνάρτηση και μια λίστα, επίστρεψε τη λίστα με τα αποτελέσματα της εφαρμογής της function(item) σε όλα τα στοιχεία);
-
foldl (με δεδομένη μια συνάρτηση, μια λίστα και έναν αρχικό συσσωρευτή, δίπλωσε (ανάγωγε) κάθε στοιχείο στον συσσωρευτή από τα αριστερά);
-
foldr (με δεδομένη μια συνάρτηση, μια λίστα και έναν αρχικό συσσωρευτή, δίπλωσε (ανάγωγε) κάθε στοιχείο στον συσσωρευτή από τα δεξιά);
-
reverse (με δεδομένη μια λίστα, επίστρεψε μια λίστα με όλα τα αρχικά στοιχεία, αλλά σε αντίστροφη σειρά).
Σημείωσε ότι η σειρά με την οποία περνιούνται τα ορίσματα στις συναρτήσεις δίπλωσης (foldl, foldr) έχει σημασία.
Η εντολή apply της Tcl
Οι περιπτώσεις δοκιμών μπορεί να φαίνονται μπερδεμένες.
Αναμένεται να υλοποιήσεις το εξής:
set myList {alpha beta gamma delta}
listOps::filter $myList {{word} {expr {[string length $word] == 4}}
Γιατί αυτό το τελευταίο όρισμα έχει τόσα άγκιστρα;
Θυμήσου ότι η εντολή proc ορίζεται ως:
proc procName argList body
Η Tcl έχει μια εντολή apply:
apply func ?arg1 arg2 ...?
Αυτό το "func" είναι μια λίστα δύο στοιχείων {argList body} που είναι ουσιαστικά μια ανώνυμη proc (ή "λάμδα").
Η εντολή apply καλεί αυτή την ανώνυμη proc, περνώντας τα ορίσματα που χρειάζεται.
Για παράδειγμα, αυτά είναι ισοδύναμα:
# using proc
proc myReverse {str} {return [string reverse $str]}
puts [myReverse "Hello, World!"]
# using apply
puts [apply {{str} {string reverse $str}} "Hello, World!"]
# or, store the func in a variable
set func {{str} {string reverse $str}}
puts [apply $func "Hello, World!"]
Η χρήση του apply κάνει απλούστερη τη μεταβίβαση μπλοκ κώδικα.
Αναφορά: apply, proc.
