Algol 68 - ACM Digital Library

174J)K)L)M)N)O)P)a)b)c)d)e)van Wijngaarden, et al.FPATTERN :: structured with INSERTION field letter iprocedure yielding FIVMAT field letter p letter f mode.GPATTERN :: structured with INSERTION field letter irow of procedure yielding integral fieldletter s letter p letter e letter c mode.FIVMAT ::mui definition of structured withrow of structured with integral field letter c letter pintegral field letter c letter o letter u letter n letter tintegral field letter b letter prow of union ofstructured withunion of PATTERN CPATTERNstructured with INSERTION field letter iprocedure yielding mui application fieldletter p letter fmodeGPATTERN voidmode field letter pINSERTION field letter imodeCOLLITEMmode field letter cmode field letter alephmode.{'FIVMAT' is equivalent (2.1.1.2.a) to 'FORMAl".}MARK :: sign ; point ; exponent ; complex ; boolean.COMARK :: zero ; digit ; character.UNSUPPRESSETY :: unsuppressible ; EMPTY.TYPE :: integral ; real ; boolean ; complex ; string ; bits ;integral choice ; boolean choice ; format ; general.FORMAT NEST format text{5D} : formatter{94f} token,NEST collection{b} list, formatter{94f} token.NEST collection{a,b} :pragment{92a} sequence option, NEST picture{c} ;pragment{92a} sequence option, NEST insertion{d},NEST replicator{g}, NEST collection{b} list brief pack,pragment{92a} sequence option, NEST insertion{d}.NEST picture{b} : NEST TYPE pattern{A342a,A343a,A344a,A345a,A346a,A347a,A348a,b,A349a,A34Aa} option,NEST insertion{d}.NEST insertion{b,c,j,k,A347b,A348a,b,A349a,A34Aa} :NEST literal{i} option, NEST alignment{e} sequence option.NEST alignment{d} :NEST replicator{g}, alignment code{f}, NEST literal{i} option.g)h)J)k)m)n)o){Examples:ALGOL 68 Revised Report 175alignment code{e} : letter k{94a} symbol ; letter x{94a} symbol ;letter y{94a} symbol ; letter 1{94a} symbol ; letter p{94a} symbol ;letter q{94a} symbol.NEST replieator{b,e,i,k} : NEST unsuppressible replicator{h} option.NEST unsuppressible replicator{g,i} : fixed point numcral{811b} ;letter n{94a} symbol,meek integral NEST ENCLOSED clause{31a,34a,-},pragment{92a} sequence option.NEST UNSUPPRESSETY literal{d,e,i,A348c} :NEST UNSUPPRESSETY replicator{g,h},strong row of character NEST denoter{a0a} coercee{61a},NEST unsuppressible literal{i} option.NEST UNSUPPRESSETY MARK frame{A342c,A343b,c,A344a,A345a} :NEST insertion{d}, UNSUPPRESSETY suppression{l},MARK marker{A342e,A343d,e,A344b,A345b}.NEST UNSUPPRESSETY COMARK frame{A342b,c,A346a} :NEST insertion{d}, NEST replicator{g},UNSUPPRESSETY suppression{l},COMARK marker{A342d,f,A346b}.UNSUPPRESSETY suppression{j,k,A347b} :where {UNSUPPRESSETY) is {unsuppressible), EMPTY ;where (UNSUPPRESSETY) is {EMPTY),letter s{94a} symbol option."frame : NEST UNSUPPRESSETY MARK frame{j} ;NEST UNSUPPRESSETY COMARK frame{k} ;NEST RADIX frame{A347b}.*marker : MARK marker{A342e,A343d,e,A344b,A345b} ;COMARK marker{A342d,f,A346b} ; radix marker{A347c}.pattern : NEST TYPE pattern{A342a,A343a,A344a,A345a,A346a,A347a,A348a,b,A349a,A34Aa}.a) $ p "table of"x iOa,l n (lim - 1) ("x=" 12z+d 2x,+.12de+2d 3q" +j×"3"._" si +.l Ode+2d l) p $b) p "table of"x lOa • l n (lim - 1) ("x=" 12z+d 2x,+. 12de+2d 3q"+jx"3"." si +. lOde+2d l) pc) 120k c ("mon", "tues", "wednes", "thurs", "fri", " satur", "sun")"day"d) p "table of"xe) p "table of"h) 10 • n(lim-1)i) "+j×"3"."j) sik) "x=" 12z1) s}