elderica

(in-package :common-lisp-user)

(defpackage :dezero-naive.steps.step02
  (:use :common-lisp))
(in-package :dezero-naive.steps.step02)

(defgeneric call (function input))

(defgeneric forward (function x))

elderica

(in-package :common-lisp-user)

(defpackage :dezero-naive.steps.step01
  (:use :common-lisp))
(in-package :dezero-naive.steps.step01)

(defclass <variable> ()
  ((data :initarg :data :accessor @data)))

(defun <variable> (data)

elderica

FROM alpine:latest

ARG QUICKLISP_SIGNING_KEY=D7A3489DDEFE32B7D0E7CC61307965AB028B5FF7
ADD https://beta.quicklisp.org/quicklisp.lisp quicklisp.lisp
ADD https://beta.quicklisp.org/quicklisp.lisp.asc quicklisp.lisp.asc

RUN <<EOT
apk update
apk add --no-cache gpg sbcl rlwrap
gpg --batch --recv-keys $QUICKLISP_SIGNING_KEY

elderica

;;; init.el --- init.el -*- lexical-binding: t; -*-

(eval-and-compile
  (customize-set-variable
   'package-archives
   '(("org" . "https://orgmode.org/elpa/")
     ("melpa" . "https://melpa.org/packages/")
     ("gnu" . "https://elpa.gnu.org/packages/")))
  (package-initialize))

elderica

$ sudo apt-get update
$ sudo apt-get -y sbcl rlwrap

elderica

function Run-Remux {
    <#
        .SYNOPSIS
        FFmpegを呼んでRemux処理を行う

        .PARAMETER VideoFile
        MP4などのオリジナルの動画ファイルへのフルパス

        .PARAMETER SubtitleFile
        コンテナに入れたい字幕ファイルへのフルパス

elderica

# シリアルナンバーを知りたい記憶装置だけ調べる
(Get-PhysicalDisk | Out-GridView -PassThru).SerialNumber | Format-Hex
# シリアルナンバーを一括で調べる
Get-PhysicalDisk | Select BusType, MediaType, FriendlyName, SerialNumber, {$_.SerialNumber | Format-Hex} | Out-GridView

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 (zundoko)

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)))]))