|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1088 (0x440)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦388fcb6d2⟧
└─⟦this⟧
question 3:
le package generique est instancie ainsi:
subtype mots is positive range 1..20;
word_counter is new histo (mots);
les fonctions de lecture et comptage de caracteres peuvent ensuite etre
ajoutees.
question 4:
conception d'un iterateur decroissant sur l'histogramme (integre au package
generique) :
3 fonctions :
start_it return discret: appel a l'iterateur qui se positionne sur l'element
ayant le plus d'occurence, et retourne ce premier element (pas la valeur);
next_item return discret: recherche sur toute la collection de l'element
inferieur le plus proche de celui precedemment trouve.
is_at_end return boolean: verifie si la collection a ete entierement parcourue.
ce mode d'iteration implique de changer la definition de l'objet generique:
type val_tab is array (Discret) if Natural;
type object is record
val_list : val_tab (others=>0);
it_val : Natural;
end record;
en effet, la valeur courante de l'iterateur doit etre memorisee pour trouver
la suivante