Advertisement
Guest User

Untitled

a guest
Jul 12th, 2018
38
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. (in "10k.csv"
  2. (while (line)
  3. (let L (cdr (split @ ","))
  4. (printsp
  5. ($dat (pack (head 10 (car L))) "-")
  6. ($tim (pack (nth (++ L) 11)))
  7. ($dat (pack (head 10 (car L))) "-")
  8. ($tim (pack (nth (++ L) 11)))
  9. (format (++ L))
  10. (format (prog (++ L) (++ L)))
  11. (format (prog (++ L) (++ L)))
  12. (format (prog (++ L) (++ L)))
  13. (format (prog (do 6 (++ L)) (++ L)) 2)
  14. )
  15. (prinl)
  16.  
  17. )
  18. )
  19. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement