elderica

#lang racket
(require data/queue)

(define ds (vector "ドド" "スコ"))
(define history (make-queue))

(define (limit-history)
  (when (< 12 (queue-length history))
    (dequeue! history)))

elderica

#lang racket

(define ds (vector "ドド" "スコ"))

(define (ddsk-rec history)
  (if (= (bitwise-and history #x0fff) #x0777)
    (displayln "ラブ注入♡")
    (let ((i (random 2)))
      (display (vector-ref ds i))
      (ddsk-rec (bitwise-and #x0fff

elderica

#!/bin/sh

export LANG=C LC_ALL=C
LF=$(printf '\\\n_'); LF=${LF%_}
od -A n -t x1 -v                  |
tr -Cd '0123456789accdefABCDEF\n' |
tr 'abcdef' 'ABCDEF'              |
sed "s/../&$LF/g"                 |
grep -v '^$'

elderica

#!/bin/sh

### Usage:
### $ env RESOLUTION=UHD NDAYSAGO=1 SAVETO=$HOME/Bing sh download_bing_wallpaper.sh

set -euo pipefail

RESOLUTION=${RESOLUTION:-1920x1080} # Possible values: 1920x1080, 1366x768, UHD

NDAYSAGO=${NDAYSAGO:-0}

elderica

FROM archlinux:latest AS base
SHELL ["/bin/bash", "-x", "-o", "pipefail", "-c"]

# Install runtime dependencies
RUN pacman -Syu --noconfirm zstd


FROM base AS sbcl-builder
SHELL ["/bin/bash", "-x", "-o", "pipefail", "-c"]

elderica

FROM archlinux:latest AS base
SHELL ["/bin/bash", "-x", "-o", "pipefail", "-c"]

# Install runtime dependencies
RUN pacman -Syu --noconfirm zstd


FROM base AS sbcl-builder
SHELL ["/bin/bash", "-x", "-o", "pipefail", "-c"]

elderica

FROM archlinux:latest AS base
# Install runtime dependencies
RUN    set -x \
    && pacman -Syu --noconfirm zstd

FROM base AS sbcl-builder

ENV SBCL_VERSION=2.3.6

ENV SBCL_PREFIX=/opt/sbcl

elderica

FROM archlinux:latest AS base

ARG SBCL_VERSION=2.3.6

ENV SBCL_SIGNING_KEY=D6839CA0A67F74D9DFB70922EBD595A9100D63CD

ENV SBCL_DOWNLOADS_BASE_URL="https://downloads.sourceforge.net/project/sbcl/sbcl"

ENV SBCL_HASH_FILE=sbcl-${SBCL_VERSION}-crhodes.asc
ENV SBCL_HASH_URL=${SBCL_DOWNLOADS_BASE_URL}/${SBCL_VERSION}/${SBCL_HASH_FILE}

elderica

FROM archlinux:latest AS base

ARG SBCL_VERSION=2.3.6

ENV SBCL_SIGNING_KEY=D6839CA0A67F74D9DFB70922EBD595A9100D63CD

ENV SBCL_DOWNLOADS_BASE_URL="https://downloads.sourceforge.net/project/sbcl/sbcl"

ENV SBCL_HASH_FILE=sbcl-${SBCL_VERSION}-crhodes.asc
ENV SBCL_HASH_URL=${SBCL_DOWNLOADS_BASE_URL}/${SBCL_VERSION}/${SBCL_HASH_FILE}

elderica

(require 'package)
(add-to-list 'package-archives
	     '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.