DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

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

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦26ac14602⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »UDVID.SCL«

Derivation

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─ ⟦this⟧ »UDVID.SCL«

TextFile

; Jan Rubæk Pedersen 1. Marts 1985
; Se også 'floden'
;
udvid(Løsning,Løsning,Slutrum) hvis 
     starter_med(Løsning,Slutrum).
udvid(L1,Løsning,Slutrum) hvis 
     udvid_med_et_træk(L1,Udvidet),
     løkke_fri(Udvidet) og 
     udvid(Udvidet,Løsning,Slutrum).
starter_med(<Hoved..Hale>,Hoved).
løkke_fri(<Hoved..Hale>) hvis 
     ikke(er_med_i(Hoved,Hale)).
udvid_med_et_træk(Gammel_liste,<Nyt_rum..Gammel_liste>) hvis 
     starter_med(Gammel_liste,Sidste_rum) og 
     træk(Sidste_rum,Nyt_rum).
er_med_i(Element,<Element..Hale>).
er_med_i(Element,<Hoved..Hale>) hvis 
     er_med_i(Element,Hale).
«eof»