15 lines
457 B
Plaintext
15 lines
457 B
Plaintext
#import std
|
|
#import nat
|
|
|
|
readings = (*F ~&c/;digits+ rlc ==+ ~~ -={` ,9%cOi&,13%cOi&}) readings_dot_txt
|
|
|
|
valid_format = all -&length==49,@tK27 all ~&w/`.&& ~&jZ\digits--'-.',@tK28 all ~&jZ\digits--'-'&-
|
|
|
|
duplicate_dates = :/'duplicated dates:'+ ~&hK2tFhhPS|| -[(none)]-!
|
|
|
|
good_readings = --' good readings'@h+ %nP+ length+ *~ @tK28 all ~='0'&& ~&wZ/`-
|
|
|
|
#show+
|
|
|
|
main = valid_format?(^C/good_readings duplicate_dates,-[invalid format]-!) readings
|