@fnndsc/brasa 0.31.5 → 0.32.1

package/dist/builtins/games/play.js

@@ -0,0 +1,228 @@
+/**
+ * @file Games played by question and answer: `quiz`, `hangman`, `2048`.
+ *
+ * Each turn is a question the kernel asks the surface — the console in a
+ * terminal, the console's ask bar in ARGUS — so the same game plays
+ * anywhere a question can be answered. The boards and the scoring are pure
+ * functions, tested apart from the asking.
+ *
+ * @module
+ */
+import { envelope_ok, envelope_error } from '@fnndsc/cumin';
+import chalk from 'chalk';
+import { repl_question } from '../../core/question.js';
+import { sink_dataLine } from '../../core/sink.js';
+/** The bank: the lab's own vocabulary. */
+export const QUIZ_BANK = [
+    { q: 'What does CUBE stand for?', a: ['chris ultron back end', 'chris ultron backend'] },
+    { q: 'Which DICOM service asks a PACS what it holds: C-FIND, C-MOVE or C-STORE?', a: ['c-find', 'cfind', 'c find'] },
+    { q: 'Which DICOM service tells a PACS to send a series?', a: ['c-move', 'cmove', 'c move'] },
+    { q: 'What is the DICOM tag name for the hospital\'s patient identifier (the MRN)?', a: ['patientid', 'patient id'] },
+    { q: 'Which service receives DICOM files for ChRIS and reports progress over LONK?', a: ['oxidicom'] },
+    { q: 'Which service does `pull` go through to reach a PACS?', a: ['pfdcm'] },
+    { q: 'A plugin that takes data in and gives data out is of which kind: fs, ds or ts?', a: ['ds'] },
+    { q: 'A plugin that joins several parents is of which kind: fs, ds or ts?', a: ['ts'] },
+    { q: 'What is one analysis in ChRIS called (a tree of plugin instances on some data)?', a: ['feed', 'a feed'] },
+    { q: 'What does the K in LONK stand for? (spelling counts)', a: ['notifikations', 'notifications'] },
+    { q: 'Which file format do most neuroimaging tools read: NIfTI or DICOM?', a: ['nifti'] },
+    { q: 'In SeaGaP, what does the P stand for?', a: ['process'] },
+    { q: 'What is the mise kernel package called?', a: ['brasa'] },
+    { q: 'What is the mise daemon called?', a: ['calypso'] },
+    { q: 'At 0 Hounsfield units, what are you looking at?', a: ['water'] },
+];
+/** How many a round asks. */
+export const QUIZ_ROUND = 5;
+/** Whether an answer matches: case, spaces and punctuation set aside. */
+export function answer_matches(given, accepted) {
+    const norm = (s) => s.toLowerCase().replace(/[^a-z0-9]+/g, '');
+    const g = norm(given);
+    return g.length > 0 && accepted.some((a) => norm(a) === g);
+}
+/** `quiz`: five questions from the bank; the score at the end. */
+export async function builtin_quiz(_args) {
+    const asked = [...QUIZ_BANK].sort(() => Math.random() - 0.5).slice(0, QUIZ_ROUND);
+    let right = 0;
+    const results = [];
+    try {
+        for (const [i, item] of asked.entries()) {
+            const answer = await repl_question(`${i + 1}/${asked.length}  ${item.q} `);
+            if (answer.trim().toLowerCase() === 'q')
+                break;
+            const ok = answer_matches(answer, item.a);
+            if (ok)
+                right++;
+            results.push({ q: item.q, right: ok });
+            sink_dataLine(ok ? chalk.green('  right') : chalk.yellow(`  no — ${item.a[0]}`));
+        }
+    }
+    catch (error) {
+        return envelope_error('', undefined, `quiz: cannot ask here (${error instanceof Error ? error.message : String(error)})\n`);
+    }
+    const verdict = right === results.length && results.length === asked.length ? 'perfect' : right >= Math.ceil(results.length / 2) ? 'not bad' : 'wtf -l will help';
+    return envelope_ok(`\n${right} of ${results.length} — ${verdict}\n`, { kind: 'games.quiz', data: { right, asked: results.length, results } });
+}
+/* ------------------------------------------------------------- hangman */
+/** The words: the lab's. */
+export const HANGMAN_WORDS = ['oxidicom', 'pipeline', 'dicom', 'cohort', 'feed', 'plugin', 'calypso', 'brasa', 'accession', 'series', 'modality', 'nifti', 'hounsfield', 'lonk', 'pfdcm', 'stardate'];
+/** The gallows, by misses. */
+export const GALLOWS = [
+    ['  +---+', '  |   |', '      |', '      |', '      |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', '      |', '      |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', '  |   |', '      |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', ' /|   |', '      |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', ' /|\\  |', '      |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', ' /|\\  |', ' /    |', '      |', '========='],
+    ['  +---+', '  |   |', '  O   |', ' /|\\  |', ' / \\  |', '      |', '========='],
+];
+/** The word with the letters not yet guessed hidden. */
+export function word_mask(word, guessed) {
+    return [...word].map((c) => (guessed.has(c) ? c : '_')).join(' ');
+}
+/** `hangman`: a word from the lab, six misses allowed. */
+export async function builtin_hangman(_args) {
+    const word = HANGMAN_WORDS[Math.floor(Math.random() * HANGMAN_WORDS.length)];
+    const guessed = new Set();
+    let misses = 0;
+    try {
+        while (misses < GALLOWS.length - 1) {
+            const mask = word_mask(word, guessed);
+            if (!mask.includes('_'))
+                break;
+            sink_dataLine(`${GALLOWS[misses].join('\n')}\n\n  ${mask}    missed: ${[...guessed].filter((c) => !word.includes(c)).join(' ') || '—'}`);
+            const answer = (await repl_question('letter (or the word, or q): ')).trim().toLowerCase();
+            if (answer === 'q')
+                return envelope_ok(`\nthe word was ${word}\n`, { kind: 'games.hangman', data: { word, won: false, quit: true } });
+            if (answer.length > 1) {
+                if (answer === word) {
+                    for (const c of word)
+                        guessed.add(c);
+                    break;
+                }
+                misses++;
+                continue;
+            }
+            if (!/^[a-z]$/.test(answer) || guessed.has(answer))
+                continue;
+            guessed.add(answer);
+            if (!word.includes(answer))
+                misses++;
+        }
+    }
+    catch (error) {
+        return envelope_error('', undefined, `hangman: cannot ask here (${error instanceof Error ? error.message : String(error)})\n`);
+    }
+    const won = !word_mask(word, guessed).includes('_');
+    const end = won ? chalk.green(`\n  ${word} — saved, with ${misses} miss${misses === 1 ? '' : 'es'}\n`) : `${GALLOWS[GALLOWS.length - 1].join('\n')}\n\n  ${chalk.red('hanged')} — the word was ${word}\n`;
+    return envelope_ok(end, { kind: 'games.hangman', data: { word, won, misses } });
+}
+/** Slides and merges one row to the left; returns the row and the points scored. */
+export function row_slide(row) {
+    const tiles = row.filter((v) => v !== 0);
+    const out = [];
+    let score = 0;
+    for (let i = 0; i < tiles.length; i++) {
+        if (i + 1 < tiles.length && tiles[i] === tiles[i + 1]) {
+            out.push(tiles[i] * 2);
+            score += tiles[i] * 2;
+            i++;
+        }
+        else
+            out.push(tiles[i]);
+    }
+    while (out.length < row.length)
+        out.push(0);
+    return { row: out, score };
+}
+/** Moves the whole board; returns the new board, the points, and whether anything moved. */
+export function board_move(board, direction) {
+    const n = board.length;
+    const get = (r, c) => {
+        if (direction === 'left')
+            return board[r][c];
+        if (direction === 'right')
+            return board[r][n - 1 - c];
+        if (direction === 'up')
+            return board[c][r];
+        return board[n - 1 - c][r];
+    };
+    const next = board.map((row) => [...row]);
+    let score = 0;
+    let moved = false;
+    for (let r = 0; r < n; r++) {
+        const line = Array.from({ length: n }, (_, c) => get(r, c));
+        const slid = row_slide(line);
+        score += slid.score;
+        for (let c = 0; c < n; c++) {
+            const v = slid.row[c];
+            if (v !== line[c])
+                moved = true;
+            if (direction === 'left')
+                next[r][c] = v;
+            else if (direction === 'right')
+                next[r][n - 1 - c] = v;
+            else if (direction === 'up')
+                next[c][r] = v;
+            else
+                next[n - 1 - c][r] = v;
+        }
+    }
+    return { board: next, score, moved };
+}
+/** Puts a 2 (or, one time in ten, a 4) on an empty cell; false when there is none. */
+export function board_spawn(board, random = Math.random) {
+    const empty = [];
+    board.forEach((row, r) => row.forEach((v, c) => { if (v === 0)
+        empty.push([r, c]); }));
+    if (empty.length === 0)
+        return false;
+    const [r, c] = empty[Math.floor(random() * empty.length)];
+    board[r][c] = random() < 0.1 ? 4 : 2;
+    return true;
+}
+/** Whether any move is left. */
+export function board_canMove(board) {
+    return ['left', 'right', 'up', 'down'].some((d) => board_move(board, d).moved);
+}
+/** The board drawn. */
+export function board_render(board, score) {
+    const cell = (v) => (v === 0 ? '    .' : String(v).padStart(5));
+    return `${board.map((row) => row.map(cell).join('')).join('\n')}\n  score ${score}`;
+}
+/** `2048`: w/a/s/d (or h/j/k/l) by question, q to stop. */
+export async function builtin_2048(_args) {
+    let board = Array.from({ length: 4 }, () => [0, 0, 0, 0]);
+    board_spawn(board);
+    board_spawn(board);
+    let score = 0;
+    const keys = { a: 'left', h: 'left', d: 'right', l: 'right', w: 'up', k: 'up', s: 'down', j: 'down' };
+    try {
+        for (;;) {
+            sink_dataLine(board_render(board, score));
+            if (board.some((row) => row.includes(2048))) {
+                sink_dataLine(chalk.green('  2048 — you have it'));
+                break;
+            }
+            if (!board_canMove(board)) {
+                sink_dataLine(chalk.yellow('  no move left'));
+                break;
+            }
+            const answer = (await repl_question('move (w a s d, q to stop): ')).trim().toLowerCase();
+            if (answer === 'q')
+                break;
+            const direction = keys[answer[0] ?? ''];
+            if (direction === undefined)
+                continue;
+            const moved = board_move(board, direction);
+            if (!moved.moved)
+                continue;
+            board = moved.board;
+            score += moved.score;
+            board_spawn(board);
+        }
+    }
+    catch (error) {
+        return envelope_error('', undefined, `2048: cannot ask here (${error instanceof Error ? error.message : String(error)})\n`);
+    }
+    return envelope_ok(`final score ${score}\n`, { kind: 'games.2048', data: { board, score } });
+}
+//# sourceMappingURL=play.js.map

package/dist/builtins/games/play.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"play.js","sourceRoot":"","sources":["../../../src/builtins/games/play.ts"],"names":[],"mappings":"AAAA;;;;;;;;;GASG;AACH,OAAO,EAAmB,WAAW,EAAE,cAAc,EAAE,MAAM,eAAe,CAAC;AAC7E,OAAO,KAAK,MAAM,OAAO,CAAC;AAC1B,OAAO,EAAE,aAAa,EAAE,MAAM,wBAAwB,CAAC;AACvD,OAAO,EAAE,aAAa,EAAE,MAAM,oBAAoB,CAAC;AAOnD,0CAA0C;AAC1C,MAAM,CAAC,MAAM,SAAS,GAA4B;IAChD,EAAE,CAAC,EAAE,2BAA2B,EAAE,CAAC,EAAE,CAAC,uBAAuB,EAAE,sBAAsB,CAAC,EAAE;IACxF,EAAE,CAAC,EAAE,2EAA2E,EAAE,CAAC,EAAE,CAAC,QAAQ,EAAE,OAAO,EAAE,QAAQ,CAAC,EAAE;IACpH,EAAE,CAAC,EAAE,oDAAoD,EAAE,CAAC,EAAE,CAAC,QAAQ,EAAE,OAAO,EAAE,QAAQ,CAAC,EAAE;IAC7F,EAAE,CAAC,EAAE,8EAA8E,EAAE,CAAC,EAAE,CAAC,WAAW,EAAE,YAAY,CAAC,EAAE;IACrH,EAAE,CAAC,EAAE,8EAA8E,EAAE,CAAC,EAAE,CAAC,UAAU,CAAC,EAAE;IACtG,EAAE,CAAC,EAAE,uDAAuD,EAAE,CAAC,EAAE,CAAC,OAAO,CAAC,EAAE;IAC5E,EAAE,CAAC,EAAE,gFAAgF,EAAE,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE;IAClG,EAAE,CAAC,EAAE,qEAAqE,EAAE,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE;IACvF,EAAE,CAAC,EAAE,iFAAiF,EAAE,CAAC,EAAE,CAAC,MAAM,EAAE,QAAQ,CAAC,EAAE;IAC/G,EAAE,CAAC,EAAE,sDAAsD,EAAE,CAAC,EAAE,CAAC,eAAe,EAAE,eAAe,CAAC,EAAE;IACpG,EAAE,CAAC,EAAE,oEAAoE,EAAE,CAAC,EAAE,CAAC,OAAO,CAAC,EAAE;IACzF,EAAE,CAAC,EAAE,uCAAuC,EAAE,CAAC,EAAE,CAAC,SAAS,CAAC,EAAE;IAC9D,EAAE,CAAC,EAAE,yCAAyC,EAAE,CAAC,EAAE,CAAC,OAAO,CAAC,EAAE;IAC9D,EAAE,CAAC,EAAE,iCAAiC,EAAE,CAAC,EAAE,CAAC,SAAS,CAAC,EAAE;IACxD,EAAE,CAAC,EAAE,iDAAiD,EAAE,CAAC,EAAE,CAAC,OAAO,CAAC,EAAE;CACvE,CAAC;AAEF,6BAA6B;AAC7B,MAAM,CAAC,MAAM,UAAU,GAAW,CAAC,CAAC;AAEpC,yEAAyE;AACzE,MAAM,UAAU,cAAc,CAAC,KAAa,EAAE,QAA+B;IAC3E,MAAM,IAAI,GAAG,CAAC,CAAS,EAAU,EAAE,CAAC,CAAC,CAAC,WAAW,EAAE,CAAC,OAAO,CAAC,aAAa,EAAE,EAAE,CAAC,CAAC;IAC/E,MAAM,CAAC,GAAW,IAAI,CAAC,KAAK,CAAC,CAAC;IAC9B,OAAO,CAAC,CAAC,MAAM,GAAG,CAAC,IAAI,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAS,EAAW,EAAE,CAAC,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;AAC9E,CAAC;AAED,kEAAkE;AAClE,MAAM,CAAC,KAAK,UAAU,YAAY,CAAC,KAAe;IAChD,MAAM,KAAK,GAAe,CAAC,GAAG,SAAS,CAAC,CAAC,IAAI,CAAC,GAAW,EAAE,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,EAAE,UAAU,CAAC,CAAC;IACtG,IAAI,KAAK,GAAW,CAAC,CAAC;IACtB,MAAM,OAAO,GAAyC,EAAE,CAAC;IACzD,IAAI,CAAC;QACH,KAAK,MAAM,CAAC,CAAC,EAAE,IAAI,CAAC,IAAI,KAAK,CAAC,OAAO,EAAE,EAAE,CAAC;YACxC,MAAM,MAAM,GAAW,MAAM,aAAa,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,KAAK,CAAC,MAAM,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC;YACnF,IAAI,MAAM,CAAC,IAAI,EAAE,CAAC,WAAW,EAAE,KAAK,GAAG;gBAAE,MAAM;YAC/C,MAAM,EAAE,GAAY,cAAc,CAAC,MAAM,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;YACnD,IAAI,EAAE;gBAAE,KAAK,EAAE,CAAC;YAChB,OAAO,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,CAAC;YACvC,aAAa,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,SAAS,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,MAAM,CAAC,UAAU,IAAI,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;QACnF,CAAC;IACH,CAAC;IAAC,OAAO,KAAc,EAAE,CAAC;QACxB,OAAO,cAAc,CAAC,EAAE,EAAE,SAAS,EAAE,0BAA0B,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;IAC9H,CAAC;IACD,MAAM,OAAO,GAAW,KAAK,KAAK,OAAO,CAAC,MAAM,IAAI,OAAO,CAAC,MAAM,KAAK,KAAK,CAAC,MAAM,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,KAAK,IAAI,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,kBAAkB,CAAC;IAC1K,OAAO,WAAW,CAAC,KAAK,KAAK,OAAO,OAAO,CAAC,MAAM,MAAM,OAAO,IAAI,EAAE,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,EAAE,KAAK,EAAE,KAAK,EAAE,OAAO,CAAC,MAAM,EAAE,OAAO,EAAE,EAAE,CAAC,CAAC;AAChJ,CAAC;AAED,2EAA2E;AAE3E,4BAA4B;AAC5B,MAAM,CAAC,MAAM,aAAa,GAA0B,CAAC,UAAU,EAAE,UAAU,EAAE,OAAO,EAAE,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE,SAAS,EAAE,OAAO,EAAE,WAAW,EAAE,QAAQ,EAAE,UAAU,EAAE,OAAO,EAAE,YAAY,EAAE,MAAM,EAAE,OAAO,EAAE,UAAU,CAAC,CAAC;AAE7N,8BAA8B;AAC9B,MAAM,CAAC,MAAM,OAAO,GAAyC;IAC3D,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAC/E,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAC/E,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAC/E,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAC/E,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAChF,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,CAAC;IAChF,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,UAAU,EAAE,SAAS,EAAE,WAAW,CAAC;CAClF,CAAC;AAEF,wDAAwD;AACxD,MAAM,UAAU,SAAS,CAAC,IAAY,EAAE,OAA4B;IAClE,OAAO,CAAC,GAAG,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAS,EAAU,EAAE,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC;AACpF,CAAC;AAED,0DAA0D;AAC1D,MAAM,CAAC,KAAK,UAAU,eAAe,CAAC,KAAe;IACnD,MAAM,IAAI,GAAW,aAAa,CAAC,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,aAAa,CAAC,MAAM,CAAC,CAAW,CAAC;IAC/F,MAAM,OAAO,GAAgB,IAAI,GAAG,EAAE,CAAC;IACvC,IAAI,MAAM,GAAW,CAAC,CAAC;IACvB,IAAI,CAAC;QACH,OAAO,MAAM,GAAG,OAAO,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;YACnC,MAAM,IAAI,GAAW,SAAS,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC;YAC9C,IAAI,CAAC,IAAI,CAAC,QAAQ,CAAC,GAAG,CAAC;gBAAE,MAAM;YAC/B,aAAa,CAAC,GAAI,OAAO,CAAC,MAAM,CAA2B,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,IAAI,eAAe,CAAC,GAAG,OAAO,CAAC,CAAC,MAAM,CAAC,CAAC,CAAS,EAAW,EAAE,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,EAAE,CAAC,CAAC;YACrL,MAAM,MAAM,GAAW,CAAC,MAAM,aAAa,CAAC,8BAA8B,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,WAAW,EAAE,CAAC;YAClG,IAAI,MAAM,KAAK,GAAG;gBAAE,OAAO,WAAW,CAAC,kBAAkB,IAAI,IAAI,EAAE,EAAE,IAAI,EAAE,eAAe,EAAE,IAAI,EAAE,EAAE,IAAI,EAAE,GAAG,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;YACtI,IAAI,MAAM,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBACtB,IAAI,MAAM,KAAK,IAAI,EAAE,CAAC;oBAAC,KAAK,MAAM,CAAC,IAAI,IAAI;wBAAE,OAAO,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;oBAAC,MAAM;gBAAC,CAAC;gBACrE,MAAM,EAAE,CAAC;gBAAC,SAAS;YACrB,CAAC;YACD,IAAI,CAAC,SAAS,CAAC,IAAI,CAAC,MAAM,CAAC,IAAI,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC;gBAAE,SAAS;YAC7D,OAAO,CAAC,GAAG,CAAC,MAAM,CAAC,CAAC;YACpB,IAAI,CAAC,IAAI,CAAC,QAAQ,CAAC,MAAM,CAAC;gBAAE,MAAM,EAAE,CAAC;QACvC,CAAC;IACH,CAAC;IAAC,OAAO,KAAc,EAAE,CAAC;QACxB,OAAO,cAAc,CAAC,EAAE,EAAE,SAAS,EAAE,6BAA6B,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;IACjI,CAAC;IACD,MAAM,GAAG,GAAY,CAAC,SAAS,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC,QAAQ,CAAC,GAAG,CAAC,CAAC;IAC7D,MAAM,GAAG,GAAW,GAAG,CAAC,CAAC,CAAC,KAAK,CAAC,KAAK,CAAC,OAAO,IAAI,kBAAkB,MAAM,QAAQ,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,CAAC,CAAC,CAAC,GAAI,OAAO,CAAC,OAAO,CAAC,MAAM,GAAG,CAAC,CAA2B,CAAC,IAAI,CAAC,IAAI,CAAC,SAAS,KAAK,CAAC,GAAG,CAAC,QAAQ,CAAC,mBAAmB,IAAI,IAAI,CAAC;IAC7O,OAAO,WAAW,CAAC,GAAG,EAAE,EAAE,IAAI,EAAE,eAAe,EAAE,IAAI,EAAE,EAAE,IAAI,EAAE,GAAG,EAAE,MAAM,EAAE,EAAE,CAAC,CAAC;AAClF,CAAC;AAOD,oFAAoF;AACpF,MAAM,UAAU,SAAS,CAAC,GAAa;IACrC,MAAM,KAAK,GAAa,GAAG,CAAC,MAAM,CAAC,CAAC,CAAS,EAAW,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;IACpE,MAAM,GAAG,GAAa,EAAE,CAAC;IACzB,IAAI,KAAK,GAAW,CAAC,CAAC;IACtB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,KAAK,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9C,IAAI,CAAC,GAAG,CAAC,GAAG,KAAK,CAAC,MAAM,IAAI,KAAK,CAAC,CAAC,CAAC,KAAK,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC;YAAC,GAAG,CAAC,IAAI,CAAE,KAAK,CAAC,CAAC,CAAY,GAAG,CAAC,CAAC,CAAC;YAAC,KAAK,IAAK,KAAK,CAAC,CAAC,CAAY,GAAG,CAAC,CAAC;YAAC,CAAC,EAAE,CAAC;QAAC,CAAC;;YACjI,GAAG,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAW,CAAC,CAAC;IACpC,CAAC;IACD,OAAO,GAAG,CAAC,MAAM,GAAG,GAAG,CAAC,MAAM;QAAE,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC5C,OAAO,EAAE,GAAG,EAAE,GAAG,EAAE,KAAK,EAAE,CAAC;AAC7B,CAAC;AAED,4FAA4F;AAC5F,MAAM,UAAU,UAAU,CAAC,KAAY,EAAE,SAA2C;IAClF,MAAM,CAAC,GAAW,KAAK,CAAC,MAAM,CAAC;IAC/B,MAAM,GAAG,GAAG,CAAC,CAAS,EAAE,CAAS,EAAU,EAAE;QAC3C,IAAI,SAAS,KAAK,MAAM;YAAE,OAAQ,KAAK,CAAC,CAAC,CAAc,CAAC,CAAC,CAAW,CAAC;QACrE,IAAI,SAAS,KAAK,OAAO;YAAE,OAAQ,KAAK,CAAC,CAAC,CAAc,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAW,CAAC;QAC9E,IAAI,SAAS,KAAK,IAAI;YAAE,OAAQ,KAAK,CAAC,CAAC,CAAc,CAAC,CAAC,CAAW,CAAC;QACnE,OAAQ,KAAK,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAc,CAAC,CAAC,CAAW,CAAC;IACrD,CAAC,CAAC;IACF,MAAM,IAAI,GAAU,KAAK,CAAC,GAAG,CAAC,CAAC,GAAa,EAAY,EAAE,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC;IACrE,IAAI,KAAK,GAAW,CAAC,CAAC;IAAC,IAAI,KAAK,GAAY,KAAK,CAAC;IAClD,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACnC,MAAM,IAAI,GAAa,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC,CAAU,EAAE,CAAS,EAAU,EAAE,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QAC/F,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,CAAC;QAC7B,KAAK,IAAI,IAAI,CAAC,KAAK,CAAC;QACpB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACnC,MAAM,CAAC,GAAW,IAAI,CAAC,GAAG,CAAC,CAAC,CAAW,CAAC;YACxC,IAAI,CAAC,KAAK,IAAI,CAAC,CAAC,CAAC;gBAAE,KAAK,GAAG,IAAI,CAAC;YAChC,IAAI,SAAS,KAAK,MAAM;gBAAG,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;iBAClD,IAAI,SAAS,KAAK,OAAO;gBAAG,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;iBAChE,IAAI,SAAS,KAAK,IAAI;gBAAG,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;;gBACpD,IAAI,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAc,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QAC5C,CAAC;IACH,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,CAAC;AACvC,CAAC;AAED,sFAAsF;AACtF,MAAM,UAAU,WAAW,CAAC,KAAY,EAAE,SAAuB,IAAI,CAAC,MAAM;IAC1E,MAAM,KAAK,GAA4B,EAAE,CAAC;IAC1C,KAAK,CAAC,OAAO,CAAC,CAAC,GAAa,EAAE,CAAS,EAAQ,EAAE,CAAC,GAAG,CAAC,OAAO,CAAC,CAAC,CAAS,EAAE,CAAS,EAAQ,EAAE,GAAG,IAAI,CAAC,KAAK,CAAC;QAAE,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACrI,IAAI,KAAK,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,KAAK,CAAC;IACrC,MAAM,CAAC,CAAC,EAAE,CAAC,CAAC,GAAG,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,GAAG,KAAK,CAAC,MAAM,CAAC,CAAqB,CAAC;IAC7E,KAAK,CAAC,CAAC,CAAc,CAAC,CAAC,CAAC,GAAG,MAAM,EAAE,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACnD,OAAO,IAAI,CAAC;AACd,CAAC;AAED,gCAAgC;AAChC,MAAM,UAAU,aAAa,CAAC,KAAY;IACxC,OAAQ,CAAC,MAAM,EAAE,OAAO,EAAE,IAAI,EAAE,MAAM,CAAW,CAAC,IAAI,CAAC,CAAC,CAAC,EAAW,EAAE,CAAC,UAAU,CAAC,KAAK,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC;AACrG,CAAC;AAED,uBAAuB;AACvB,MAAM,UAAU,YAAY,CAAC,KAAY,EAAE,KAAa;IACtD,MAAM,IAAI,GAAG,CAAC,CAAS,EAAU,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,CAAC;IAChF,OAAO,GAAG,KAAK,CAAC,GAAG,CAAC,CAAC,GAAa,EAAU,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,aAAa,KAAK,EAAE,CAAC;AACxG,CAAC;AAED,2DAA2D;AAC3D,MAAM,CAAC,KAAK,UAAU,YAAY,CAAC,KAAe;IAChD,IAAI,KAAK,GAAU,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,EAAE,GAAa,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC3E,WAAW,CAAC,KAAK,CAAC,CAAC;IAAC,WAAW,CAAC,KAAK,CAAC,CAAC;IACvC,IAAI,KAAK,GAAW,CAAC,CAAC;IACtB,MAAM,IAAI,GAAqD,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC,EAAE,MAAM,EAAE,CAAC;IACxJ,IAAI,CAAC;QACH,SAAS,CAAC;YACR,aAAa,CAAC,YAAY,CAAC,KAAK,EAAE,KAAK,CAAC,CAAC,CAAC;YAC1C,IAAI,KAAK,CAAC,IAAI,CAAC,CAAC,GAAa,EAAW,EAAE,CAAC,GAAG,CAAC,QAAQ,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC;gBAAC,aAAa,CAAC,KAAK,CAAC,KAAK,CAAC,sBAAsB,CAAC,CAAC,CAAC;gBAAC,MAAM;YAAC,CAAC;YAC9H,IAAI,CAAC,aAAa,CAAC,KAAK,CAAC,EAAE,CAAC;gBAAC,aAAa,CAAC,KAAK,CAAC,MAAM,CAAC,gBAAgB,CAAC,CAAC,CAAC;gBAAC,MAAM;YAAC,CAAC;YACpF,MAAM,MAAM,GAAW,CAAC,MAAM,aAAa,CAAC,6BAA6B,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,WAAW,EAAE,CAAC;YACjG,IAAI,MAAM,KAAK,GAAG;gBAAE,MAAM;YAC1B,MAAM,SAAS,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;YACxC,IAAI,SAAS,KAAK,SAAS;gBAAE,SAAS;YACtC,MAAM,KAAK,GAAG,UAAU,CAAC,KAAK,EAAE,SAAS,CAAC,CAAC;YAC3C,IAAI,CAAC,KAAK,CAAC,KAAK;gBAAE,SAAS;YAC3B,KAAK,GAAG,KAAK,CAAC,KAAK,CAAC;YAAC,KAAK,IAAI,KAAK,CAAC,KAAK,CAAC;YAC1C,WAAW,CAAC,KAAK,CAAC,CAAC;QACrB,CAAC;IACH,CAAC;IAAC,OAAO,KAAc,EAAE,CAAC;QACxB,OAAO,cAAc,CAAC,EAAE,EAAE,SAAS,EAAE,0BAA0B,KAAK,YAAY,KAAK,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM,CAAC,KAAK,CAAC,KAAK,CAAC,CAAC;IAC9H,CAAC;IACD,OAAO,WAAW,CAAC,eAAe,KAAK,IAAI,EAAE,EAAE,IAAI,EAAE,YAAY,EAAE,IAAI,EAAE,EAAE,KAAK,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC;AAC/F,CAAC"}

package/dist/builtins/games/qr.d.ts

@@ -0,0 +1,40 @@
+/**
+ * @file `qr`: a QR code in the console, for a phone to read off the screen.
+ *
+ * A small encoder of its own — byte mode, error correction level L,
+ * versions 1 to 10 (up to 271 bytes) — drawn in half-block characters so a
+ * code is half as tall as it is wide, with the light modules bright: on a
+ * dark console that is what a camera reads. No library: the whole of it
+ * is below, and a surface may draw the matrix in the model its own way.
+ *
+ * @module
+ */
+import { CommandEnvelope } from '@fnndsc/cumin';
+/** The most bytes the biggest version here carries. */
+export declare const QR_MAX_BYTES: number;
+/** The Reed–Solomon remainder of `data` for `ec` check codewords. */
+export declare function rs_remainder(data: number[], ec: number): number[];
+/** The penalty of a drawn matrix, by the four rules; lower is better. */
+export declare function penalty_of(dark: boolean[][]): number;
+/**
+ * Encodes bytes as a QR matrix.
+ *
+ * @param text - The text (UTF-8).
+ * @param maskForced - A mask to use instead of the least-penalty one (a test's seam).
+ * @returns The dark/light matrix, its version and the mask chosen; null when too long.
+ */
+export declare function qr_encode(text: string, maskForced?: number): {
+    size: number;
+    dark: boolean[][];
+    version: number;
+    mask: number;
+} | null;
+/**
+ * Draws a matrix in half blocks, light modules bright, a quiet zone round it.
+ *
+ * @param dark - The matrix.
+ * @returns The lines.
+ */
+export declare function qr_render(dark: boolean[][]): string[];
+/** `qr <text>` */
+export declare function builtin_qr(args: string[]): Promise<CommandEnvelope>;

package/dist/builtins/games/qr.js

@@ -0,0 +1,336 @@
+/**
+ * @file `qr`: a QR code in the console, for a phone to read off the screen.
+ *
+ * A small encoder of its own — byte mode, error correction level L,
+ * versions 1 to 10 (up to 271 bytes) — drawn in half-block characters so a
+ * code is half as tall as it is wide, with the light modules bright: on a
+ * dark console that is what a camera reads. No library: the whole of it
+ * is below, and a surface may draw the matrix in the model its own way.
+ *
+ * @module
+ */
+import { envelope_ok, envelope_error } from '@fnndsc/cumin';
+import { text_input } from './stdin.js';
+/** Data codewords per version at level L (1..10). */
+const DATA_CODEWORDS = [0, 19, 34, 55, 80, 108, 136, 156, 194, 232, 274];
+/** Error-correction codewords per block, and the block counts, per version at level L. */
+const EC_PER_BLOCK = [0, 7, 10, 15, 20, 26, 18, 20, 24, 30, 18];
+const BLOCKS = [0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 4];
+/** Alignment pattern centres per version. */
+const ALIGNMENT = [[], [], [6, 18], [6, 22], [6, 26], [6, 30], [6, 34], [6, 22, 38], [6, 24, 42], [6, 26, 46], [6, 28, 50]];
+/** Version information bits for versions 7..10. */
+const VERSION_BITS = { 7: 0x07c94, 8: 0x085bc, 9: 0x09a99, 10: 0x0a4d3 };
+/** Format information bits for level L, by mask. */
+const FORMAT_BITS = [0x77c4, 0x72f3, 0x7daa, 0x789d, 0x662f, 0x6318, 0x6c41, 0x6976];
+/** The most bytes the biggest version here carries. */
+export const QR_MAX_BYTES = 271;
+/* -------------------------------------------------- Galois field */
+const EXP = new Array(512).fill(0);
+const LOG = new Array(256).fill(0);
+(() => {
+    let x = 1;
+    for (let i = 0; i < 255; i++) {
+        EXP[i] = x;
+        LOG[x] = i;
+        x <<= 1;
+        if (x & 0x100)
+            x ^= 0x11d;
+    }
+    for (let i = 255; i < 512; i++)
+        EXP[i] = EXP[i - 255];
+})();
+const gf_mul = (a, b) => (a === 0 || b === 0 ? 0 : EXP[(LOG[a] + LOG[b]) % 255]);
+/** The Reed–Solomon remainder of `data` for `ec` check codewords. */
+export function rs_remainder(data, ec) {
+    let gen = [1];
+    for (let i = 0; i < ec; i++) {
+        const next = new Array(gen.length + 1).fill(0);
+        for (let j = 0; j < gen.length; j++) {
+            next[j] ^= gen[j];
+            next[j + 1] ^= gf_mul(gen[j], EXP[i]);
+        }
+        gen = next;
+    }
+    const rem = new Array(ec).fill(0);
+    for (const byte of data) {
+        const factor = byte ^ rem.shift();
+        rem.push(0);
+        for (let j = 0; j < ec; j++)
+            rem[j] ^= gf_mul(gen[j + 1], factor);
+    }
+    return rem;
+}
+function matrix_make(size) {
+    return { size, dark: Array.from({ length: size }, () => new Array(size).fill(false)), fixed: Array.from({ length: size }, () => new Array(size).fill(false)) };
+}
+function module_set(m, r, c, dark) {
+    m.dark[r][c] = dark;
+    m.fixed[r][c] = true;
+}
+function finder_draw(m, r0, c0) {
+    for (let r = -1; r <= 7; r++) {
+        for (let c = -1; c <= 7; c++) {
+            const rr = r0 + r;
+            const cc = c0 + c;
+            if (rr < 0 || cc < 0 || rr >= m.size || cc >= m.size)
+                continue;
+            const ring = Math.max(Math.abs(r - 3), Math.abs(c - 3));
+            module_set(m, rr, cc, ring !== 2 && ring !== 4);
+        }
+    }
+}
+function functions_draw(m, version) {
+    finder_draw(m, 0, 0);
+    finder_draw(m, 0, m.size - 7);
+    finder_draw(m, m.size - 7, 0);
+    for (let i = 8; i < m.size - 8; i++) {
+        module_set(m, 6, i, i % 2 === 0);
+        module_set(m, i, 6, i % 2 === 0);
+    }
+    const centres = ALIGNMENT[version] ?? [];
+    const outer = centres[centres.length - 1] ?? -1;
+    for (const r of centres) {
+        for (const c of centres) {
+            // The three that would sit on a finder (the first and the outermost
+            // centres, paired) are left out; one on the timing pattern is drawn
+            // over it, as the standard has it.
+            if ((r === 6 && c === 6) || (r === 6 && c === outer) || (r === outer && c === 6))
+                continue;
+            for (let dr = -2; dr <= 2; dr++)
+                for (let dc = -2; dc <= 2; dc++)
+                    module_set(m, r + dr, c + dc, Math.max(Math.abs(dr), Math.abs(dc)) !== 1);
+        }
+    }
+    // The format areas are reserved now and written after the mask is chosen.
+    for (let i = 0; i < 9; i++) {
+        if (i !== 6) {
+            module_set(m, 8, i, false);
+            module_set(m, i, 8, false);
+        }
+    }
+    for (let i = 0; i < 8; i++) {
+        module_set(m, 8, m.size - 1 - i, false);
+        module_set(m, m.size - 1 - i, 8, false);
+    }
+    module_set(m, m.size - 8, 8, true);
+    if (version >= 7) {
+        const bits = VERSION_BITS[version];
+        for (let i = 0; i < 18; i++) {
+            const dark = ((bits >> i) & 1) === 1;
+            module_set(m, Math.floor(i / 3), m.size - 11 + (i % 3), dark);
+            module_set(m, m.size - 11 + (i % 3), Math.floor(i / 3), dark);
+        }
+    }
+}
+function format_draw(m, mask) {
+    const bits = FORMAT_BITS[mask];
+    const bit = (i) => ((bits >> i) & 1) === 1;
+    // First copy: down column 8 beside the top-left finder, then along row 8.
+    for (let i = 0; i <= 5; i++)
+        module_set(m, i, 8, bit(i));
+    module_set(m, 7, 8, bit(6));
+    module_set(m, 8, 8, bit(7));
+    module_set(m, 8, 7, bit(8));
+    for (let i = 9; i < 15; i++)
+        module_set(m, 8, 14 - i, bit(i));
+    // Second copy: along row 8 under the top-right finder, down column 8 beside the bottom-left.
+    for (let i = 0; i < 8; i++)
+        module_set(m, 8, m.size - 1 - i, bit(i));
+    for (let i = 8; i < 15; i++)
+        module_set(m, m.size - 15 + i, 8, bit(i));
+}
+function mask_bit(mask, r, c) {
+    switch (mask) {
+        case 0: return (r + c) % 2 === 0;
+        case 1: return r % 2 === 0;
+        case 2: return c % 3 === 0;
+        case 3: return (r + c) % 3 === 0;
+        case 4: return (Math.floor(r / 2) + Math.floor(c / 3)) % 2 === 0;
+        case 5: return ((r * c) % 2) + ((r * c) % 3) === 0;
+        case 6: return (((r * c) % 2) + ((r * c) % 3)) % 2 === 0;
+        default: return (((r + c) % 2) + ((r * c) % 3)) % 2 === 0;
+    }
+}
+function data_place(m, codewords, mask) {
+    let bitIndex = 0;
+    const total = codewords.length * 8;
+    let upward = true;
+    for (let right = m.size - 1; right >= 1; right -= 2) {
+        if (right === 6)
+            right = 5;
+        for (let step = 0; step < m.size; step++) {
+            const r = upward ? m.size - 1 - step : step;
+            for (const c of [right, right - 1]) {
+                if (m.fixed[r][c])
+                    continue;
+                let dark = false;
+                if (bitIndex < total) {
+                    dark = (codewords[bitIndex >> 3] >> (7 - (bitIndex & 7)) & 1) === 1;
+                    bitIndex++;
+                }
+                if (mask_bit(mask, r, c))
+                    dark = !dark;
+                m.dark[r][c] = dark;
+            }
+        }
+        upward = !upward;
+    }
+}
+/** The penalty of a drawn matrix, by the four rules; lower is better. */
+export function penalty_of(dark) {
+    const n = dark.length;
+    let score = 0;
+    const run = (line) => {
+        let count = 1;
+        for (let i = 1; i <= n; i++) {
+            if (i < n && line[i] === line[i - 1]) {
+                count++;
+                continue;
+            }
+            if (count >= 5)
+                score += 3 + (count - 5);
+            count = 1;
+        }
+    };
+    for (let i = 0; i < n; i++) {
+        run(dark[i]);
+        run(dark.map((row) => row[i]));
+    }
+    for (let r = 0; r < n - 1; r++)
+        for (let c = 0; c < n - 1; c++) {
+            const v = dark[r][c];
+            if (v === dark[r][c + 1] && v === dark[r + 1][c] && v === dark[r + 1][c + 1])
+                score += 3;
+        }
+    const pattern = [true, false, true, true, true, false, true, false, false, false, false];
+    const matches = (line, start, p) => p.every((v, i) => line[start + i] === v);
+    const reversed = [...pattern].reverse();
+    for (let i = 0; i < n; i++) {
+        const row = dark[i];
+        const col = dark.map((r) => r[i]);
+        for (let s = 0; s + 11 <= n; s++) {
+            if (matches(row, s, pattern) || matches(row, s, reversed))
+                score += 40;
+            if (matches(col, s, pattern) || matches(col, s, reversed))
+                score += 40;
+        }
+    }
+    let darkCount = 0;
+    for (const row of dark)
+        for (const v of row)
+            if (v)
+                darkCount++;
+    const percent = (darkCount * 100) / (n * n);
+    score += Math.floor(Math.abs(percent - 50) / 5) * 10;
+    return score;
+}
+/**
+ * Encodes bytes as a QR matrix.
+ *
+ * @param text - The text (UTF-8).
+ * @param maskForced - A mask to use instead of the least-penalty one (a test's seam).
+ * @returns The dark/light matrix, its version and the mask chosen; null when too long.
+ */
+export function qr_encode(text, maskForced) {
+    const bytes = Buffer.from(text, 'utf-8');
+    let version = 0;
+    for (let v = 1; v <= 10; v++) {
+        const capacity = DATA_CODEWORDS[v] - (v >= 10 ? 3 : 2);
+        if (bytes.length <= capacity) {
+            version = v;
+            break;
+        }
+    }
+    if (version === 0)
+        return null;
+    const dataCount = DATA_CODEWORDS[version];
+    // The bit stream: mode 0100, the count (8 bits below version 10, 16 at it), the bytes, a terminator, padding.
+    const bits = [];
+    const push = (value, width) => { for (let i = width - 1; i >= 0; i--)
+        bits.push((value >> i) & 1); };
+    push(0b0100, 4);
+    push(bytes.length, version >= 10 ? 16 : 8);
+    for (const b of bytes)
+        push(b, 8);
+    push(0, Math.min(4, dataCount * 8 - bits.length));
+    while (bits.length % 8 !== 0)
+        bits.push(0);
+    const data = [];
+    for (let i = 0; i < bits.length; i += 8)
+        data.push(bits.slice(i, i + 8).reduce((a, b) => (a << 1) | b, 0));
+    for (let pad = 0; data.length < dataCount; pad++)
+        data.push(pad % 2 === 0 ? 0xec : 0x11);
+    // Blocks: the short ones first, then the long; interleaved for the stream.
+    const blocks = BLOCKS[version];
+    const ec = EC_PER_BLOCK[version];
+    const shortLength = Math.floor(dataCount / blocks);
+    const longBlocks = dataCount % blocks;
+    const dataBlocks = [];
+    const ecBlocks = [];
+    let at = 0;
+    for (let b = 0; b < blocks; b++) {
+        const length = shortLength + (b >= blocks - longBlocks ? 1 : 0);
+        const block = data.slice(at, at + length);
+        at += length;
+        dataBlocks.push(block);
+        ecBlocks.push(rs_remainder(block, ec));
+    }
+    const codewords = [];
+    for (let i = 0; i <= shortLength; i++)
+        for (const block of dataBlocks)
+            if (i < block.length)
+                codewords.push(block[i]);
+    for (let i = 0; i < ec; i++)
+        for (const block of ecBlocks)
+            codewords.push(block[i]);
+    // Every mask drawn; the one with the least penalty stands.
+    const size = 17 + version * 4;
+    let best = null;
+    for (let mask = 0; mask < 8; mask++) {
+        if (maskForced !== undefined && mask !== maskForced)
+            continue;
+        const m = matrix_make(size);
+        functions_draw(m, version);
+        data_place(m, codewords, mask);
+        format_draw(m, mask);
+        const penalty = penalty_of(m.dark);
+        if (best === null || penalty < best.penalty)
+            best = { dark: m.dark, mask, penalty };
+    }
+    return { size, dark: best.dark, version, mask: best.mask };
+}
+/**
+ * Draws a matrix in half blocks, light modules bright, a quiet zone round it.
+ *
+ * @param dark - The matrix.
+ * @returns The lines.
+ */
+export function qr_render(dark) {
+    const n = dark.length;
+    const quiet = 2;
+    const light = (r, c) => r < 0 || c < 0 || r >= n || c >= n ? true : !dark[r][c];
+    const lines = [];
+    for (let r = -quiet; r < n + quiet; r += 2) {
+        let line = '';
+        for (let c = -quiet; c < n + quiet; c++) {
+            const top = light(r, c);
+            const bottom = light(r + 1, c);
+            line += top && bottom ? '█' : top ? '▀' : bottom ? '▄' : ' ';
+        }
+        lines.push(line);
+    }
+    return lines;
+}
+/** `qr <text>` */
+export async function builtin_qr(args) {
+    const text = text_input(args);
+    if (text === null)
+        return envelope_error('', undefined, 'qr: usage: qr <text or URL>   (up to 271 bytes)\n');
+    const said = text.replace(/\n$/, '');
+    const code = qr_encode(said);
+    if (code === null)
+        return envelope_error('', undefined, `qr: too long for the codes drawn here (${Buffer.byteLength(said, 'utf-8')} bytes; at most ${QR_MAX_BYTES})\n`);
+    const rows = code.dark.map((row) => row.map((d) => (d ? '1' : '0')).join(''));
+    return envelope_ok(`${qr_render(code.dark).join('\n')}\n`, { kind: 'games.qr', data: { text: said, version: code.version, size: code.size, rows } });
+}
+//# sourceMappingURL=qr.js.map

package/dist/builtins/games/qr.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"qr.js","sourceRoot":"","sources":["../../../src/builtins/games/qr.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AACH,OAAO,EAAmB,WAAW,EAAE,cAAc,EAAE,MAAM,eAAe,CAAC;AAC7E,OAAO,EAAE,UAAU,EAAE,MAAM,YAAY,CAAC;AAExC,qDAAqD;AACrD,MAAM,cAAc,GAA0B,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC;AAChG,0FAA0F;AAC1F,MAAM,YAAY,GAA0B,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;AACvF,MAAM,MAAM,GAA0B,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;AACxE,6CAA6C;AAC7C,MAAM,SAAS,GAAyC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;AAClK,mDAAmD;AACnD,MAAM,YAAY,GAAqC,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,EAAE,CAAC,EAAE,OAAO,EAAE,EAAE,EAAE,OAAO,EAAE,CAAC;AAC3G,oDAAoD;AACpD,MAAM,WAAW,GAA0B,CAAC,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,EAAE,MAAM,CAAC,CAAC;AAC5G,uDAAuD;AACvD,MAAM,CAAC,MAAM,YAAY,GAAW,GAAG,CAAC;AAExC,qEAAqE;AACrE,MAAM,GAAG,GAAa,IAAI,KAAK,CAAS,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;AACrD,MAAM,GAAG,GAAa,IAAI,KAAK,CAAS,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;AACrD,CAAC,GAAG,EAAE;IACJ,IAAI,CAAC,GAAW,CAAC,CAAC;IAClB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QACrC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC;QACvB,CAAC,KAAK,CAAC,CAAC;QACR,IAAI,CAAC,GAAG,KAAK;YAAE,CAAC,IAAI,KAAK,CAAC;IAC5B,CAAC;IACD,KAAK,IAAI,CAAC,GAAW,GAAG,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE;QAAE,GAAG,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,GAAG,GAAG,CAAW,CAAC;AAC1E,CAAC,CAAC,EAAE,CAAC;AACL,MAAM,MAAM,GAAG,CAAC,CAAS,EAAE,CAAS,EAAU,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAE,GAAG,CAAC,CAAC,CAAY,GAAI,GAAG,CAAC,CAAC,CAAY,CAAC,GAAG,GAAG,CAAW,CAAC,CAAC;AAE3I,qEAAqE;AACrE,MAAM,UAAU,YAAY,CAAC,IAAc,EAAE,EAAU;IACrD,IAAI,GAAG,GAAa,CAAC,CAAC,CAAC,CAAC;IACxB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QACpC,MAAM,IAAI,GAAa,IAAI,KAAK,CAAS,GAAG,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACjE,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,GAAG,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;YAC5C,IAAI,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAW,CAAC;YAC5B,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,MAAM,CAAC,GAAG,CAAC,CAAC,CAAW,EAAE,GAAG,CAAC,CAAC,CAAW,CAAC,CAAC;QAC5D,CAAC;QACD,GAAG,GAAG,IAAI,CAAC;IACb,CAAC;IACD,MAAM,GAAG,GAAa,IAAI,KAAK,CAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IACpD,KAAK,MAAM,IAAI,IAAI,IAAI,EAAE,CAAC;QACxB,MAAM,MAAM,GAAW,IAAI,GAAI,GAAG,CAAC,KAAK,EAAa,CAAC;QACtD,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;QACZ,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;YAAE,GAAG,CAAC,CAAC,CAAC,IAAI,MAAM,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAW,EAAE,MAAM,CAAC,CAAC;IACtF,CAAC;IACD,OAAO,GAAG,CAAC;AACb,CAAC;AAOD,SAAS,WAAW,CAAC,IAAY;IAC/B,OAAO,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,GAAc,EAAE,CAAC,IAAI,KAAK,CAAU,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,IAAI,CAAC,EAAE,MAAM,EAAE,IAAI,EAAE,EAAE,GAAc,EAAE,CAAC,IAAI,KAAK,CAAU,IAAI,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC;AACzM,CAAC;AAED,SAAS,UAAU,CAAC,CAAS,EAAE,CAAS,EAAE,CAAS,EAAE,IAAa;IAC/D,CAAC,CAAC,IAAI,CAAC,CAAC,CAAe,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;IAClC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAe,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;AACtC,CAAC;AAED,SAAS,WAAW,CAAC,CAAS,EAAE,EAAU,EAAE,EAAU;IACpD,KAAK,IAAI,CAAC,GAAW,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACrC,KAAK,IAAI,CAAC,GAAW,CAAC,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACrC,MAAM,EAAE,GAAW,EAAE,GAAG,CAAC,CAAC;YAAC,MAAM,EAAE,GAAW,EAAE,GAAG,CAAC,CAAC;YACrD,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,IAAI,IAAI,EAAE,IAAI,CAAC,CAAC,IAAI;gBAAE,SAAS;YAC/D,MAAM,IAAI,GAAW,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC;YAChE,UAAU,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,IAAI,KAAK,CAAC,IAAI,IAAI,KAAK,CAAC,CAAC,CAAC;QAClD,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAS,cAAc,CAAC,CAAS,EAAE,OAAe;IAChD,WAAW,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAAC,WAAW,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC;IAAC,WAAW,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC;IACnF,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5C,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC;QACjC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC;IACnC,CAAC;IACD,MAAM,OAAO,GAA0B,SAAS,CAAC,OAAO,CAAC,IAAI,EAAE,CAAC;IAChE,MAAM,KAAK,GAAW,OAAO,CAAC,OAAO,CAAC,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC;IACxD,KAAK,MAAM,CAAC,IAAI,OAAO,EAAE,CAAC;QACxB,KAAK,MAAM,CAAC,IAAI,OAAO,EAAE,CAAC;YACxB,oEAAoE;YACpE,oEAAoE;YACpE,mCAAmC;YACnC,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,KAAK,KAAK,CAAC,IAAI,CAAC,CAAC,KAAK,KAAK,IAAI,CAAC,KAAK,CAAC,CAAC;gBAAE,SAAS;YAC3F,KAAK,IAAI,EAAE,GAAW,CAAC,CAAC,EAAE,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE;gBAAE,KAAK,IAAI,EAAE,GAAW,CAAC,CAAC,EAAE,EAAE,IAAI,CAAC,EAAE,EAAE,EAAE;oBAAE,UAAU,CAAC,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,EAAE,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;QAC9J,CAAC;IACH,CAAC;IACD,0EAA0E;IAC1E,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACnC,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC;YAAC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC,CAAC;YAAC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC,CAAC;QAAC,CAAC;IAC1E,CAAC;IACD,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAAC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,KAAK,CAAC,CAAC;QAAC,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,KAAK,CAAC,CAAC;IAAC,CAAC;IACzH,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,CAAC;IACnC,IAAI,OAAO,IAAI,CAAC,EAAE,CAAC;QACjB,MAAM,IAAI,GAAW,YAAY,CAAC,OAAO,CAAW,CAAC;QACrD,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;YACpC,MAAM,IAAI,GAAY,CAAC,CAAC,IAAI,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC;YAC9C,UAAU,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,EAAE,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;YAC9D,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,EAAE,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;QAChE,CAAC;IACH,CAAC;AACH,CAAC;AAED,SAAS,WAAW,CAAC,CAAS,EAAE,IAAY;IAC1C,MAAM,IAAI,GAAW,WAAW,CAAC,IAAI,CAAW,CAAC;IACjD,MAAM,GAAG,GAAG,CAAC,CAAS,EAAW,EAAE,CAAC,CAAC,CAAC,IAAI,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC;IAC5D,0EAA0E;IAC1E,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE;QAAE,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IACjE,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IAAC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IAAC,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IACtF,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;QAAE,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IACtE,6FAA6F;IAC7F,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE;QAAE,UAAU,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,CAAC,GAAG,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;IAC7E,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;QAAE,UAAU,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,GAAG,EAAE,GAAG,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;AACjF,CAAC;AAED,SAAS,QAAQ,CAAC,IAAY,EAAE,CAAS,EAAE,CAAS;IAClD,QAAQ,IAAI,EAAE,CAAC;QACb,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QACjC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QAC3B,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QAC3B,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QACjC,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,IAAI,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QACjE,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC;QACnD,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;QACzD,OAAO,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC;IAC5D,CAAC;AACH,CAAC;AAED,SAAS,UAAU,CAAC,CAAS,EAAE,SAAmB,EAAE,IAAY;IAC9D,IAAI,QAAQ,GAAW,CAAC,CAAC;IACzB,MAAM,KAAK,GAAW,SAAS,CAAC,MAAM,GAAG,CAAC,CAAC;IAC3C,IAAI,MAAM,GAAY,IAAI,CAAC;IAC3B,KAAK,IAAI,KAAK,GAAW,CAAC,CAAC,IAAI,GAAG,CAAC,EAAE,KAAK,IAAI,CAAC,EAAE,KAAK,IAAI,CAAC,EAAE,CAAC;QAC5D,IAAI,KAAK,KAAK,CAAC;YAAE,KAAK,GAAG,CAAC,CAAC;QAC3B,KAAK,IAAI,IAAI,GAAW,CAAC,EAAE,IAAI,GAAG,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,CAAC;YACjD,MAAM,CAAC,GAAW,MAAM,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,GAAG,CAAC,GAAG,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC;YACpD,KAAK,MAAM,CAAC,IAAI,CAAC,KAAK,EAAE,KAAK,GAAG,CAAC,CAAC,EAAE,CAAC;gBACnC,IAAK,CAAC,CAAC,KAAK,CAAC,CAAC,CAAe,CAAC,CAAC,CAAC;oBAAE,SAAS;gBAC3C,IAAI,IAAI,GAAY,KAAK,CAAC;gBAC1B,IAAI,QAAQ,GAAG,KAAK,EAAE,CAAC;oBACrB,IAAI,GAAG,CAAE,SAAS,CAAC,QAAQ,IAAI,CAAC,CAAY,IAAI,CAAC,CAAC,GAAG,CAAC,QAAQ,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC;oBAChF,QAAQ,EAAE,CAAC;gBACb,CAAC;gBACD,IAAI,QAAQ,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC;oBAAE,IAAI,GAAG,CAAC,IAAI,CAAC;gBACtC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAe,CAAC,CAAC,CAAC,GAAG,IAAI,CAAC;YACrC,CAAC;QACH,CAAC;QACD,MAAM,GAAG,CAAC,MAAM,CAAC;IACnB,CAAC;AACH,CAAC;AAED,yEAAyE;AACzE,MAAM,UAAU,UAAU,CAAC,IAAiB;IAC1C,MAAM,CAAC,GAAW,IAAI,CAAC,MAAM,CAAC;IAC9B,IAAI,KAAK,GAAW,CAAC,CAAC;IACtB,MAAM,GAAG,GAAG,CAAC,IAAe,EAAQ,EAAE;QACpC,IAAI,KAAK,GAAW,CAAC,CAAC;QACtB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACpC,IAAI,CAAC,GAAG,CAAC,IAAI,IAAI,CAAC,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC;gBAAC,KAAK,EAAE,CAAC;gBAAC,SAAS;YAAC,CAAC;YAC5D,IAAI,KAAK,IAAI,CAAC;gBAAE,KAAK,IAAI,CAAC,GAAG,CAAC,KAAK,GAAG,CAAC,CAAC,CAAC;YACzC,KAAK,GAAG,CAAC,CAAC;QACZ,CAAC;IACH,CAAC,CAAC;IACF,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QAAC,GAAG,CAAC,IAAI,CAAC,CAAC,CAAc,CAAC,CAAC;QAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAc,EAAW,EAAE,CAAC,GAAG,CAAC,CAAC,CAAY,CAAC,CAAC,CAAC;IAAC,CAAC;IACjI,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE;QAAE,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YAC/E,MAAM,CAAC,GAAa,IAAI,CAAC,CAAC,CAAe,CAAC,CAAC,CAAY,CAAC;YACxD,IAAI,CAAC,KAAM,IAAI,CAAC,CAAC,CAAe,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,KAAM,IAAI,CAAC,CAAC,GAAG,CAAC,CAAe,CAAC,CAAC,CAAC,IAAI,CAAC,KAAM,IAAI,CAAC,CAAC,GAAG,CAAC,CAAe,CAAC,CAAC,GAAG,CAAC,CAAC;gBAAE,KAAK,IAAI,CAAC,CAAC;QACxI,CAAC;IACD,MAAM,OAAO,GAAc,CAAC,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,IAAI,EAAE,IAAI,EAAE,KAAK,EAAE,IAAI,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,CAAC,CAAC;IACpG,MAAM,OAAO,GAAG,CAAC,IAAe,EAAE,KAAa,EAAE,CAAY,EAAW,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAU,EAAE,CAAS,EAAW,EAAE,CAAC,IAAI,CAAC,KAAK,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC;IAC9I,MAAM,QAAQ,GAAc,CAAC,GAAG,OAAO,CAAC,CAAC,OAAO,EAAE,CAAC;IACnD,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;QACnC,MAAM,GAAG,GAAc,IAAI,CAAC,CAAC,CAAc,CAAC;QAC5C,MAAM,GAAG,GAAc,IAAI,CAAC,GAAG,CAAC,CAAC,CAAY,EAAW,EAAE,CAAC,CAAC,CAAC,CAAC,CAAY,CAAC,CAAC;QAC5E,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;YACzC,IAAI,OAAO,CAAC,GAAG,EAAE,CAAC,EAAE,OAAO,CAAC,IAAI,OAAO,CAAC,GAAG,EAAE,CAAC,EAAE,QAAQ,CAAC;gBAAE,KAAK,IAAI,EAAE,CAAC;YACvE,IAAI,OAAO,CAAC,GAAG,EAAE,CAAC,EAAE,OAAO,CAAC,IAAI,OAAO,CAAC,GAAG,EAAE,CAAC,EAAE,QAAQ,CAAC;gBAAE,KAAK,IAAI,EAAE,CAAC;QACzE,CAAC;IACH,CAAC;IACD,IAAI,SAAS,GAAW,CAAC,CAAC;IAC1B,KAAK,MAAM,GAAG,IAAI,IAAI;QAAE,KAAK,MAAM,CAAC,IAAI,GAAG;YAAE,IAAI,CAAC;gBAAE,SAAS,EAAE,CAAC;IAChE,MAAM,OAAO,GAAW,CAAC,SAAS,GAAG,GAAG,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;IACpD,KAAK,IAAI,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,OAAO,GAAG,EAAE,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC;IACrD,OAAO,KAAK,CAAC;AACf,CAAC;AAED;;;;;;GAMG;AACH,MAAM,UAAU,SAAS,CAAC,IAAY,EAAE,UAAmB;IACzD,MAAM,KAAK,GAAW,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,OAAO,CAAC,CAAC;IACjD,IAAI,OAAO,GAAW,CAAC,CAAC;IACxB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,IAAI,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QACrC,MAAM,QAAQ,GAAY,cAAc,CAAC,CAAC,CAAY,GAAG,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QAC3E,IAAI,KAAK,CAAC,MAAM,IAAI,QAAQ,EAAE,CAAC;YAAC,OAAO,GAAG,CAAC,CAAC;YAAC,MAAM;QAAC,CAAC;IACvD,CAAC;IACD,IAAI,OAAO,KAAK,CAAC;QAAE,OAAO,IAAI,CAAC;IAC/B,MAAM,SAAS,GAAW,cAAc,CAAC,OAAO,CAAW,CAAC;IAC5D,8GAA8G;IAC9G,MAAM,IAAI,GAAa,EAAE,CAAC;IAC1B,MAAM,IAAI,GAAG,CAAC,KAAa,EAAE,KAAa,EAAQ,EAAE,GAAG,KAAK,IAAI,CAAC,GAAW,KAAK,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE;QAAE,IAAI,CAAC,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IACnI,IAAI,CAAC,MAAM,EAAE,CAAC,CAAC,CAAC;IAChB,IAAI,CAAC,KAAK,CAAC,MAAM,EAAE,OAAO,IAAI,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;IAC3C,KAAK,MAAM,CAAC,IAAI,KAAK;QAAE,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;IAClC,IAAI,CAAC,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,SAAS,GAAG,CAAC,GAAG,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC;IAClD,OAAO,IAAI,CAAC,MAAM,GAAG,CAAC,KAAK,CAAC;QAAE,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;IAC3C,MAAM,IAAI,GAAa,EAAE,CAAC;IAC1B,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,IAAI,CAAC;QAAE,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAS,EAAE,CAAS,EAAU,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC3I,KAAK,IAAI,GAAG,GAAW,CAAC,EAAE,IAAI,CAAC,MAAM,GAAG,SAAS,EAAE,GAAG,EAAE;QAAE,IAAI,CAAC,IAAI,CAAC,GAAG,GAAG,CAAC,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;IACjG,2EAA2E;IAC3E,MAAM,MAAM,GAAW,MAAM,CAAC,OAAO,CAAW,CAAC;IACjD,MAAM,EAAE,GAAW,YAAY,CAAC,OAAO,CAAW,CAAC;IACnD,MAAM,WAAW,GAAW,IAAI,CAAC,KAAK,CAAC,SAAS,GAAG,MAAM,CAAC,CAAC;IAC3D,MAAM,UAAU,GAAW,SAAS,GAAG,MAAM,CAAC;IAC9C,MAAM,UAAU,GAAe,EAAE,CAAC;IAClC,MAAM,QAAQ,GAAe,EAAE,CAAC;IAChC,IAAI,EAAE,GAAW,CAAC,CAAC;IACnB,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,MAAM,EAAE,CAAC,EAAE,EAAE,CAAC;QACxC,MAAM,MAAM,GAAW,WAAW,GAAG,CAAC,CAAC,IAAI,MAAM,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;QACxE,MAAM,KAAK,GAAa,IAAI,CAAC,KAAK,CAAC,EAAE,EAAE,EAAE,GAAG,MAAM,CAAC,CAAC;QACpD,EAAE,IAAI,MAAM,CAAC;QACb,UAAU,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC;QACvB,QAAQ,CAAC,IAAI,CAAC,YAAY,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,CAAC;IACzC,CAAC;IACD,MAAM,SAAS,GAAa,EAAE,CAAC;IAC/B,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,IAAI,WAAW,EAAE,CAAC,EAAE;QAAE,KAAK,MAAM,KAAK,IAAI,UAAU;YAAE,IAAI,CAAC,GAAG,KAAK,CAAC,MAAM;gBAAE,SAAS,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAW,CAAC,CAAC;IACxI,KAAK,IAAI,CAAC,GAAW,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE;QAAE,KAAK,MAAM,KAAK,IAAI,QAAQ;YAAE,SAAS,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAW,CAAC,CAAC;IACtG,2DAA2D;IAC3D,MAAM,IAAI,GAAW,EAAE,GAAG,OAAO,GAAG,CAAC,CAAC;IACtC,IAAI,IAAI,GAAgE,IAAI,CAAC;IAC7E,KAAK,IAAI,IAAI,GAAW,CAAC,EAAE,IAAI,GAAG,CAAC,EAAE,IAAI,EAAE,EAAE,CAAC;QAC5C,IAAI,UAAU,KAAK,SAAS,IAAI,IAAI,KAAK,UAAU;YAAE,SAAS;QAC9D,MAAM,CAAC,GAAW,WAAW,CAAC,IAAI,CAAC,CAAC;QACpC,cAAc,CAAC,CAAC,EAAE,OAAO,CAAC,CAAC;QAC3B,UAAU,CAAC,CAAC,EAAE,SAAS,EAAE,IAAI,CAAC,CAAC;QAC/B,WAAW,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC;QACrB,MAAM,OAAO,GAAW,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QAC3C,IAAI,IAAI,KAAK,IAAI,IAAI,OAAO,GAAG,IAAI,CAAC,OAAO;YAAE,IAAI,GAAG,EAAE,IAAI,EAAE,CAAC,CAAC,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,CAAC;IACtF,CAAC;IACD,OAAO,EAAE,IAAI,EAAE,IAAI,EAAG,IAA8B,CAAC,IAAI,EAAE,OAAO,EAAE,IAAI,EAAG,IAAyB,CAAC,IAAI,EAAE,CAAC;AAC9G,CAAC;AAED;;;;;GAKG;AACH,MAAM,UAAU,SAAS,CAAC,IAAiB;IACzC,MAAM,CAAC,GAAW,IAAI,CAAC,MAAM,CAAC;IAC9B,MAAM,KAAK,GAAW,CAAC,CAAC;IACxB,MAAM,KAAK,GAAG,CAAC,CAAS,EAAE,CAAS,EAAW,EAAE,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAG,IAAI,CAAC,CAAC,CAAe,CAAC,CAAC,CAAa,CAAC;IACrI,MAAM,KAAK,GAAa,EAAE,CAAC;IAC3B,KAAK,IAAI,CAAC,GAAW,CAAC,KAAK,EAAE,CAAC,GAAG,CAAC,GAAG,KAAK,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC;QACnD,IAAI,IAAI,GAAW,EAAE,CAAC;QACtB,KAAK,IAAI,CAAC,GAAW,CAAC,KAAK,EAAE,CAAC,GAAG,CAAC,GAAG,KAAK,EAAE,CAAC,EAAE,EAAE,CAAC;YAChD,MAAM,GAAG,GAAY,KAAK,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;YAAC,MAAM,MAAM,GAAY,KAAK,CAAC,CAAC,GAAG,CAAC,EAAE,CAAC,CAAC,CAAC;YAC1E,IAAI,IAAI,GAAG,IAAI,MAAM,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC;QAC/D,CAAC;QACD,KAAK,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACnB,CAAC;IACD,OAAO,KAAK,CAAC;AACf,CAAC;AAED,kBAAkB;AAClB,MAAM,CAAC,KAAK,UAAU,UAAU,CAAC,IAAc;IAC7C,MAAM,IAAI,GAAkB,UAAU,CAAC,IAAI,CAAC,CAAC;IAC7C,IAAI,IAAI,KAAK,IAAI;QAAE,OAAO,cAAc,CAAC,EAAE,EAAE,SAAS,EAAE,mDAAmD,CAAC,CAAC;IAC7G,MAAM,IAAI,GAAW,IAAI,CAAC,OAAO,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;IAC7C,MAAM,IAAI,GAAG,SAAS,CAAC,IAAI,CAAC,CAAC;IAC7B,IAAI,IAAI,KAAK,IAAI;QAAE,OAAO,cAAc,CAAC,EAAE,EAAE,SAAS,EAAE,0CAA0C,MAAM,CAAC,UAAU,CAAC,IAAI,EAAE,OAAO,CAAC,mBAAmB,YAAY,KAAK,CAAC,CAAC;IACxK,MAAM,IAAI,GAAa,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,GAAc,EAAU,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,CAAU,EAAU,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC;IAC5H,OAAO,WAAW,CAAC,GAAG,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,IAAI,EAAE,EAAE,IAAI,EAAE,UAAU,EAAE,IAAI,EAAE,EAAE,IAAI,EAAE,IAAI,EAAE,OAAO,EAAE,IAAI,CAAC,OAAO,EAAE,IAAI,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,EAAE,EAAE,CAAC,CAAC;AACvJ,CAAC"}