;ELC   
;;; Compiled
;;; in Emacs version 26.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'cl-lib)
#@12 

(fn NTH)
(defalias 'elb-extract-digit #[257 "\303_	\\\n\"\207" [elb-num elb-acc elb-den truncate] 4 (#$ . 426)])
#@10 

(fn D)
(defalias 'elb-eliminate-digit #[257 "	_Z\211\303_\n\303_\211\207" [elb-acc elb-den elb-num 10] 5 (#$ . 549)])
#@10 

(fn K)
(defalias 'elb-next-term #[257 "\211\303_T	\303_\\\211_\n_	_\211\207" [elb-acc elb-num elb-den 2] 6 (#$ . 680)])
#@10 

(fn X)
(defalias 'elb-pidigits #[257 "\303\304\211\305\303\211\211\306Y\204C \262\307T\211\262!\210\nV\204 \310\311!\262\310\312!U\203 B\262T\262\313!\210\202 \266\314!+\207" [elb-num elb-den elb-acc 0 1 nil 10000 elb-next-term elb-extract-digit 3 4 elb-eliminate-digit reverse] 12 (#$ . 816)])
(defalias 'elb-pidigits-entry #[0 "\300\211S\211\262\301Y\203 \302\303!\210\202 \304\207" [1000 0 elb-pidigits 500 nil] 3])
(provide 'elb-pidigits)