|
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