20 lines
600 B
Common Lisp
20 lines
600 B
Common Lisp
;; TODO: make this unnecessary for `sbcl --script` invocations
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
|
(user-homedir-pathname))))
|
|
(when (probe-file quicklisp-init)
|
|
(load quicklisp-init)))
|
|
|
|
(load "utils.lisp")
|
|
|
|
(defun account-exists? (n)
|
|
(begin
|
|
(= (values _ _ status)
|
|
(uiop:run-program
|
|
(format nil "curl --head --fail https://cohost.org/~r" n)
|
|
:ignore-error-status t))
|
|
(zerop status)))
|
|
|
|
(loop for i below 100
|
|
do (format t "~a @~r~%" (if (account-exists? i) "∃" "∄") i)
|
|
do (sleep 0.1))
|