aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Text-processing-2/PicoLisp/text-processing-2.l
View file

@ -9,15 +9,13 @@
(and
(= 49 (length Lst)) # Check total length
($dat (car Lst) "-") # Check for valid date
(not
(find # Check data format
'((L F)
(not
(if F # Alternating:
(format L 3) # Number
(>= 9 (format L) -9) ) ) ) # or flag
(cdr Lst)
'(T NIL .) ) ) )
(fully # Check data format
'((L F)
(if F # Alternating:
(format L 3) # Number
(>= 9 (format L) -9) ) ) # or flag
(cdr Lst)
'(T NIL .) ) )
(prinl "Bad line format: " (glue " " Lst))
(bye 1) ) ) ) )