elderica

#lang racket

(define (take-upto length lst)
 (cond
   [(<= length 0) null]
   [(null? lst) null]
   [else (cons (first lst)
               (take-upto (sub1 length) (rest lst)))]))
   
(define (ddsk)

elderica

#lang racket
(define ds (vector "ドド" "スコ"))

(define (take-upto lst pos)
 (cond
   [(<= pos 0) null]
   [(null? lst) null]
   [else (cons (car lst)
               (take-upto (cdr lst) (sub1 pos)))]))
   

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}