DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T ┃

⟦1da9fb15e⟧ TextFile

    Length: 592 (0x250)
    Types: TextFile
    Names: »TINYTEST6«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

pour Somme prendre {
  avec a:A b:B c:C d:D.
  renvoyer A+B+C+D
}.

pour factorielle prendre {
   avec de: n.
   n<1 sivrai: { renvoyer 1 }
       sifaux: { renvoyer n * (factorielle de: n-1) }.
 }.

pour eleve prendre {
   avec lavaleur:N alapuissance:P.
   pour i prendre 1.
   pour m prendre N.
   {i<P} tantquevrai:{
     pour N prendre N * m.
     pour i prendre i + 1.
   }.
   renvoyer N
 }.

(somme a:(factorielle de:4) b:(eleve lavaleur:2 alapuissance:3) c:10 d:5) entexte.
(vrai|faux) entexte.
(vrai|vrai) entexte.
(faux&vrai) entexte.
(vrai&vrai) entexte.
(vrai&faux|vrai) entexte.