Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (in "10k.csv"
- (while (line)
- (let L (cdr (split @ ","))
- (printsp
- ($dat (pack (head 10 (car L))) "-")
- ($tim (pack (nth (++ L) 11)))
- ($dat (pack (head 10 (car L))) "-")
- ($tim (pack (nth (++ L) 11)))
- (format (++ L))
- (format (prog (++ L) (++ L)))
- (format (prog (++ L) (++ L)))
- (format (prog (++ L) (++ L)))
- (format (prog (do 6 (++ L)) (++ L)) 2)
- )
- (prinl)
- )
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement