Text processing/2: Difference between revisions

Content added Content deleted
(Added Erlang)
('find' -> 'fully')
Line 1,557:
(= 49 (length Lst)) # Check total length
($dat (car Lst) "-") # Check for valid date
(notfully # Check data format
'(find # Check data(L formatF)
'((Lif F) # Alternating:
(notformat L 3) # Number
(>= 9 (ifformat FL) -9) ) ) # or # Alternating:flag
(formatcdr L 3Lst) # Number
'(>=T 9NIL (format L.) -9) ) ) ) # or flag
(cdr Lst)
'(T NIL .) ) ) )
(prinl "Bad line format: " (glue " " Lst))
(bye 1) ) ) ) )
Retrieved from "https://rosettacode.org/wiki/Text_processing/2"