Data update
This commit is contained in:
Ingy döt Net
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
|
|
@ -1,5 +1,5 @@
|
|||
global width inp$[] .
|
||||
proc read . .
|
||||
proc read .
|
||||
repeat
|
||||
inp$ = input
|
||||
until inp$ = ""
|
||||
|
|
@ -12,7 +12,7 @@ proc read . .
|
|||
.
|
||||
read
|
||||
#
|
||||
proc out mode . .
|
||||
proc out mode .
|
||||
for inp$ in inp$[]
|
||||
ar$[] = strsplit inp$ "$"
|
||||
for s$ in ar$[]
|
||||
|
|
|
|||
|
|
@ -1,246 +1,129 @@
|
|||
(defun rob-even-p (integer)
|
||||
"Test if INTEGER is even."
|
||||
(= (% integer 2) 0))
|
||||
(defun prepare-data ()
|
||||
"Process data into list of lists."
|
||||
(let ((all-lines)
|
||||
(processed-line))
|
||||
(dolist (one-line (split-string "Given$a$text$file$of$many$lines,$where$fields$within$a$line$
|
||||
are$delineated$by$a$single$'dollar'$character,$write$a$program
|
||||
that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$
|
||||
column$are$separated$by$at$least$one$space.
|
||||
Further,$allow$for$each$word$in$a$column$to$be$either$left$
|
||||
justified,$right$justified,$or$center$justified$within$its$column." "[\n\r]" :OMIT-NULLS))
|
||||
(dolist (one-word (split-string one-line "\\$"))
|
||||
(push one-word processed-line))
|
||||
(push (nreverse processed-line) all-lines)
|
||||
(setq processed-line nil))
|
||||
(nreverse all-lines)))
|
||||
|
||||
(defun rob-odd-p (integer)
|
||||
"Test if INTEGER is odd."
|
||||
(not (rob-even-p integer)))
|
||||
(defun get-column (column-number data)
|
||||
"Get words from COLUMN-NUMBER column in DATA."
|
||||
(let ((column-result))
|
||||
(setq column-number (- column-number 1))
|
||||
(dolist (line data)
|
||||
(if (nth column-number line)
|
||||
(push (nth column-number line) column-result)
|
||||
(push "" column-result)))
|
||||
column-result))
|
||||
|
||||
(defun both-odd-or-both-even-p (x y)
|
||||
"Test if X and Y are both even or both odd."
|
||||
(or (and (rob-even-p x) (rob-even-p y))
|
||||
(and (rob-odd-p x) (rob-odd-p y))))
|
||||
(defun calc-column-width (column-number data)
|
||||
"Calculate padded width for COLUMN-NUMBER in DATA."
|
||||
(let ((column-words (get-column column-number data)))
|
||||
(+ 2 (apply #'max (mapcar #'length column-words)))))
|
||||
|
||||
(defun word-lengths (words)
|
||||
"Convert WORDS into list of lengths of each word."
|
||||
(mapcar 'length words))
|
||||
(defun get-last-column (data)
|
||||
"Find the last column in DATA."
|
||||
(apply #'max (mapcar #'length data)))
|
||||
|
||||
(defun get-one-row (row-number rows-columns-words)
|
||||
"Get ROW-NUMBER row from ROWS-COLUMNS-WORDS.
|
||||
ROWS-COLUMNS-WORDS is list of lists in form of row, column, word."
|
||||
(seq-filter
|
||||
(lambda (element)
|
||||
(= row-number (car element)))
|
||||
rows-columns-words))
|
||||
(defun get-column-widths (data)
|
||||
"Get a list of column widths from DATA."
|
||||
(let ((current-column 1)
|
||||
(last-column (get-last-column data))
|
||||
(column-widths))
|
||||
(while (<= current-column last-column)
|
||||
(push (calc-column-width current-column data) column-widths)
|
||||
(setq current-column (1+ current-column)))
|
||||
(nreverse column-widths)))
|
||||
|
||||
(defun get-one-word (row-number column-number rows-columns-words)
|
||||
"Get one word from ROWS-COLUMNS-WORDS at ROW-NUMBER and COLUMN-NUMBER.
|
||||
ROWS-COLUMNS-WORDS is list of lists in form of row, column, word."
|
||||
(delq nil
|
||||
(mapcar
|
||||
(lambda (element)
|
||||
(when (= column-number (nth 1 element))
|
||||
(nth 2 element)))
|
||||
(get-one-row row-number rows-columns-words))))
|
||||
(defun get-one-column-width (column-number data)
|
||||
"Get column width of COLUMN-NUMBER from DATA."
|
||||
(let ((column-widths (get-column-widths data)))
|
||||
(nth (- column-number 1) column-widths)))
|
||||
|
||||
(defun get-last-row (rows-columns-words)
|
||||
"Get the number of the last row of ROWS-COLUMNS-WORDS.
|
||||
ROWS-COLUMNS-WORDS is a list of lists, each list in the form of
|
||||
row, column, word."
|
||||
(apply 'max (mapcar 'car rows-columns-words)))
|
||||
(defun center-align-one-word (word column-width)
|
||||
"Center align WORD in space of COLUMN-WIDTH."
|
||||
(let* ((word-width (length word))
|
||||
(total-padding (- column-width word-width))
|
||||
(pre-padding-length (/ total-padding 2))
|
||||
(post-padding-length (- column-width (+ pre-padding-length word-width)))
|
||||
(pre-padding (make-string pre-padding-length ? ))
|
||||
(post-padding (make-string post-padding-length ? )))
|
||||
(insert (format "%s%s%s" pre-padding word post-padding))))
|
||||
|
||||
(defun list-nth-column (column rows-columns-words)
|
||||
"List the words in column COLUMN of ROWS-COLUMNS-WORDS.
|
||||
ROWS-COLUMNS-WORDS is a list of lists, each list in the form of row, column,
|
||||
word."
|
||||
(let ((row 1)
|
||||
(column-word)
|
||||
(last-row (get-last-row rows-columns-words ))
|
||||
(matches nil))
|
||||
(while (and (<= row last-row)
|
||||
(<= column (get-last-column rows-columns-words)))
|
||||
(setq column-word (get-one-word row column rows-columns-words))
|
||||
(when (null column-word)
|
||||
(setq column-word ""))
|
||||
(push column-word matches)
|
||||
(setq row (1+ row)))
|
||||
(flatten-tree (nreverse matches))))
|
||||
(defun center-align-one-line (one-line column-widths)
|
||||
"Center align ONE-LINE using COLUMN-WIDTHS."
|
||||
(let ((word-position 0))
|
||||
(dolist (word one-line)
|
||||
(center-align-one-word word (nth word-position column-widths))
|
||||
(setq word-position (1+ word-position)))))
|
||||
|
||||
(defun get-widest-in-column (column)
|
||||
"Get the widest word in COLUMN, which is a list of words."
|
||||
(apply #'max (word-lengths column)))
|
||||
(defun center-align-lines (data)
|
||||
"Center align columns of words in DATA."
|
||||
(let ((column-widths (get-column-widths data)))
|
||||
(dolist (one-line data)
|
||||
(center-align-one-line one-line column-widths)
|
||||
(insert (format "%s" "\n")))))
|
||||
|
||||
(defun get-column-width (column)
|
||||
"Calculate the width of COLUMN, which is a list of words."
|
||||
(+ (get-widest-in-column column) 2))
|
||||
(defun left-align-one-word (word column-width)
|
||||
"Left align WORD in space of COLUMN-WIDTH."
|
||||
(let* ((word-width (length word))
|
||||
(total-padding (- column-width word-width))
|
||||
(pre-padding-length 1)
|
||||
(post-padding-length (- column-width (+ pre-padding-length word-width)))
|
||||
(pre-padding (make-string pre-padding-length ? ))
|
||||
(post-padding (make-string post-padding-length ? )))
|
||||
(insert (format "%s%s%s" pre-padding word post-padding))))
|
||||
|
||||
(defun get-column-widths (rows-columns-words)
|
||||
"Make a list of the column widths in ROWS-COLUMNS-WORDS.
|
||||
ROWS-COLUMNS-WORDS is list of lists, with each list in the form of row, column,
|
||||
word."
|
||||
(let ((last-column (get-last-column rows-columns-words))
|
||||
(column 1)
|
||||
(columns))
|
||||
(while (<= column last-column)
|
||||
(push (get-column-width (list-nth-column column rows-columns-words)) columns)
|
||||
(setq column (1+ column)))
|
||||
(reverse columns)))
|
||||
(defun left-align-one-line (one-line column-widths)
|
||||
"Left align ONE-LINE using COLUMN-WIDTHS."
|
||||
(let ((word-position 0))
|
||||
(dolist (word one-line)
|
||||
(left-align-one-word word (nth word-position column-widths))
|
||||
(setq word-position (1+ word-position)))))
|
||||
|
||||
(defun add-column-widths (widths rows-columns-words)
|
||||
"Add WIDTHS to ROWS-COLUMNS-WORDS.
|
||||
ROWS-COLUMNS-WORDS is a list of lists, with each list in the form of row,
|
||||
column, word. WIDTHS are the widths of each column. Output is a
|
||||
list of lists, with each list in the form of column-width, row,
|
||||
column, word."
|
||||
(let ((new-data)
|
||||
(new-database)
|
||||
(column)
|
||||
(width))
|
||||
(dolist (data rows-columns-words)
|
||||
(setq column (cadr data))
|
||||
(setq width (nth (- column 1) widths))
|
||||
(setq new-data (push width data))
|
||||
(push new-data new-database))
|
||||
(nreverse new-database)))
|
||||
(defun left-align-lines (data)
|
||||
"Left align columns of words in DATA."
|
||||
(let ((column-widths (get-column-widths data)))
|
||||
(dolist (one-line data)
|
||||
(left-align-one-line one-line column-widths)
|
||||
(insert (format "%s" "\n")))))
|
||||
|
||||
(defun get-last-column (rows-columns-words)
|
||||
"Get the number of the last column in ROWS-COLUMNS-WORDS."
|
||||
(apply 'max (mapcar 'cadr rows-columns-words)))
|
||||
(defun right-align-one-word (word column-width)
|
||||
"Right align WORD in space of COLUMN-WIDTH."
|
||||
(let* ((word-width (length word))
|
||||
(total-padding (- column-width word-width))
|
||||
(post-padding-length 1)
|
||||
(pre-padding-length (- column-width (+ post-padding-length word-width)))
|
||||
(pre-padding (make-string pre-padding-length ? ))
|
||||
(post-padding (make-string post-padding-length ? )))
|
||||
(insert (format "%s%s%s" pre-padding word post-padding))))
|
||||
|
||||
(defun create-rows-columns-words ()
|
||||
"Put text from column-data.txt file in lists.
|
||||
Each list consists of a row number, a column number, and a word."
|
||||
(let ((lines)
|
||||
(line-number 0)
|
||||
(word-number)
|
||||
(words))
|
||||
(with-temp-buffer
|
||||
(insert-file-contents "~/Documents/Elisp/column_data.txt")
|
||||
(beginning-of-buffer)
|
||||
(dolist (line (split-string (buffer-string) "[\r\n]" :no-nulls))
|
||||
(push line lines))
|
||||
(setq lines (nreverse lines)))
|
||||
(dolist (line lines)
|
||||
(setq line-number (1+ line-number))
|
||||
(setq word-number 0)
|
||||
(dolist (word (split-string line "\\$" :no-nulls))
|
||||
(setq word-number (1+ word-number))
|
||||
(push (list line-number word-number word) words)))
|
||||
(setq words (nreverse words))))
|
||||
(defun right-align-one-line (one-line column-widths)
|
||||
"Right align ONE-LINE using COLUMN-WIDTHS."
|
||||
(let ((word-position 0))
|
||||
(dolist (word one-line)
|
||||
(right-align-one-word word (nth word-position column-widths))
|
||||
(setq word-position (1+ word-position)))))
|
||||
|
||||
(defun pad-for-center-align (column-width text)
|
||||
"Pad TEXT to center in space of COLUMN-WIDTH."
|
||||
(let* ((text-width (length text))
|
||||
(total-padding-length (- column-width text-width))
|
||||
(pre-padding-length)
|
||||
(post-padding-length)
|
||||
(pre-padding)
|
||||
(post-padding))
|
||||
(if (both-odd-or-both-even-p text-width column-width)
|
||||
(progn
|
||||
(setq pre-padding-length (/ total-padding-length 2))
|
||||
(setq post-padding-length pre-padding-length))
|
||||
(setq pre-padding-length (+ (/ total-padding-length 2) 1))
|
||||
(setq post-padding-length (- pre-padding-length 1)))
|
||||
(setq pre-padding (make-string pre-padding-length ? ))
|
||||
(setq post-padding (make-string post-padding-length ? ))
|
||||
(format "%s%s%s" pre-padding text post-padding)))
|
||||
(defun right-align-lines (data)
|
||||
"Right align columns of words in DATA."
|
||||
(let ((column-widths (get-column-widths data)))
|
||||
(dolist (one-line data)
|
||||
(right-align-one-line one-line column-widths)
|
||||
(insert (format "%s" "\n")))))
|
||||
|
||||
(defun create-a-center-aligned-line (widths-1row-columns-words)
|
||||
"Create a centered line based on WIDTHS-1ROW-COLUMNS-WORDS.
|
||||
WIDTHS-1ROW-COLUMNS-WORDS is a list of lists. Each list consists
|
||||
of the column-width, the row number, the column number, and the
|
||||
word. The row number is the same in all lists."
|
||||
(let ((full-line "")
|
||||
(next-section))
|
||||
(insert "\n")
|
||||
(dolist (word-data widths-1row-columns-words)
|
||||
;; below, nth 0 is the column width, nth 3 is the word
|
||||
(setq next-section (pad-for-center-align (nth 0 word-data) (nth 3 word-data)))
|
||||
(setq full-line (concat full-line next-section)))
|
||||
(insert full-line)))
|
||||
|
||||
(defun pad-for-left-align (column-width text)
|
||||
"Pad TEXT to left-align in space of COLUMN-WIDTH."
|
||||
(let* ((text-width (length text))
|
||||
(post-padding-length (- column-width text-width)))
|
||||
(setq post-padding (make-string post-padding-length ? ))
|
||||
(format "%s%s" text post-padding)))
|
||||
|
||||
(defun create-a-left-aligned-line (widths-1row-columns-words)
|
||||
"Create a left-aligned line based on WIDTHS-1ROW-COLUMNS-WORDS.
|
||||
Each element of WIDTHS-1ROW-COLUMNS-WORDS consists of the column
|
||||
width, the row number, the column number, and the word. The row
|
||||
number is the same in every case."
|
||||
(let ((full-line "")
|
||||
(next-section))
|
||||
(insert "\n")
|
||||
(dolist (one-item widths-1row-columns-words)
|
||||
(setq next-section (pad-for-left-align (nth 0 one-item) (nth 3 one-item)))
|
||||
(setq full-line (concat full-line next-section)))
|
||||
(insert full-line)))
|
||||
|
||||
(defun pad-for-right-align (column-width text)
|
||||
"Pad TEXT to right-align in space of COLUMN-WIDTH."
|
||||
(let* ((text-width (length text))
|
||||
(pre-padding-length (- column-width text-width)))
|
||||
(setq pre-padding (make-string pre-padding-length ? ))
|
||||
(format "%s%s" pre-padding text)))
|
||||
|
||||
(defun create-a-right-aligned-line (widths-1row-columns-words)
|
||||
"Create a right-aligned line based on WIDTHS-1ROW-COLUMNS-WORDS.
|
||||
Each element of WIDTHS-1ROW-COLUMNS-WORDS consists of the column
|
||||
width, the row number, the column number, and the word. The row
|
||||
number is the same in every case."
|
||||
(let ((full-line "")
|
||||
(next-section))
|
||||
(insert "\n")
|
||||
(dolist (one-item widths-1row-columns-words)
|
||||
(setq next-section (pad-for-right-align (nth 0 one-item) (nth 3 one-item)))
|
||||
(setq full-line (concat full-line next-section)))
|
||||
(insert full-line)))
|
||||
|
||||
(defun left-align-lines (rows-columns-words)
|
||||
"Write ROWS-COLUMNS-WORDS in left-aligned columns.
|
||||
ROWS-COLUMNS-WORDS is a list of lists. Each list consists of the
|
||||
row number, the column number, and the word."
|
||||
(let* ((row-number 1)
|
||||
(column-widths (get-column-widths rows-columns-words))
|
||||
(last-row (get-last-row rows-columns-words))
|
||||
(one-row)
|
||||
(width-place 0))
|
||||
(while (<= row-number last-row)
|
||||
(setq one-row (get-one-row row-number rows-columns-words))
|
||||
(setq one-row (add-column-widths column-widths one-row))
|
||||
(create-a-left-aligned-line one-row)
|
||||
(setq row-number (1+ row-number))
|
||||
(setq width-place (1+ width-place)))))
|
||||
|
||||
(defun right-align-lines (rows-columns-words)
|
||||
"Write ROWS-COLUMNS-WORDS in right-aligned columns.
|
||||
ROWS-COLUMNS-WORDS is a list of lists. Each list consists of the
|
||||
row number, the column number, and the word."
|
||||
(let* ((row-number 1)
|
||||
(column-widths (get-column-widths rows-columns-words))
|
||||
(last-row (get-last-row rows-columns-words))
|
||||
(one-row)
|
||||
(width-place 0))
|
||||
(while (<= row-number last-row)
|
||||
(setq one-row (get-one-row row-number rows-columns-words))
|
||||
(setq one-row (add-column-widths column-widths one-row))
|
||||
(create-a-right-aligned-line one-row)
|
||||
(setq row-number (1+ row-number))
|
||||
(setq width-place (1+ width-place)))))
|
||||
|
||||
(defun center-align-lines (rows-columns-words)
|
||||
"Write ROWS-COLUMNS-WORDS in center-aligned columns.
|
||||
ROWS-COLUMNS-WORDS is a list of lists. Each list consists of the
|
||||
row number, the column number, and the word."
|
||||
(let* ((row-number 1)
|
||||
(column-widths (get-column-widths rows-columns-words))
|
||||
(last-row (get-last-row rows-columns-words))
|
||||
(one-row)
|
||||
(width-place 0))
|
||||
(while (<= row-number last-row)
|
||||
(setq one-row (get-one-row row-number rows-columns-words))
|
||||
(setq one-row (add-column-widths column-widths one-row))
|
||||
(create-a-center-aligned-line one-row)
|
||||
(setq row-number (1+ row-number))
|
||||
(setq width-place (1+ width-place)))))
|
||||
|
||||
(defun align-lines (alignment rows-columns-words)
|
||||
"Write ROWS-COLUMNS-WIDTHS with given ALIGNMENT.
|
||||
ROWS-COLUMNS-WIDTHS consists of a list of lists. Each internal list contains width of column, row number, column number, and a word."
|
||||
(defun align-lines (alignment data)
|
||||
"Write DATA with given ALIGNMENT.
|
||||
DATA consists of a list of lists. Each internal list conists of a list
|
||||
of words."
|
||||
(let ((align-function (pcase alignment
|
||||
('left 'left-align-lines)
|
||||
("left" 'left-align-lines)
|
||||
|
|
@ -248,4 +131,4 @@ ROWS-COLUMNS-WIDTHS consists of a list of lists. Each internal list contains wid
|
|||
("center" 'center-align-lines)
|
||||
('right 'right-align-lines)
|
||||
("right" 'right-align-lines))))
|
||||
(funcall align-function rows-columns-words)))
|
||||
(funcall align-function data)))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue