s-hiiragi

#!/bin/bash

usage_exit() {
	local PROG=$(basename "$0")
	cat <<EOS >&2
$PROG -- find a file towards the root directory

$PROG [OPTIONS] FILENAME

OPTIONS

s-hiiragi

# https://x.com/ellnore_pad_267/status/1889922279750160791/photo/1
N = 5
k = 3
t = [None] * k
r = []
print(f'{N=}, {r=}, {t=}')

def combination(x, i, prefix, indent):
    sp = '^   ' * indent
    print(f'{prefix}{sp}({x}, {i})')

s-hiiragi

Param(
# 内部的な引数
[switch]$Hidden,
# 内部的な引数
[switch]$Perform
)

if (-not $Hidden -and -not $Perform) {
    # PowerShellウィンドウを非表示で実行
    powershell -WindowStyle Hidden -File $MyInvocation.MyCommand.Path -Hidden

s-hiiragi

' オートコンプリートを切り替える
'
' 以下のオプションをON/OFFします
' オプション＞詳細設定＞編集オプション＞オートコンプリートを有効にする
'
Sub オートコンプリート切替()
    Application.EnableAutoComplete = Not Application.EnableAutoComplete
    MsgBox "オートコンプリートを" & IIf(Application.EnableAutoComplete, "有効", "無効") & "にしました"
End Sub

s-hiiragi

const status_id = BigInt(prompt('Input Status Id', ''));
const timestamp = Number((status_id >> 22n) + 1288834974657n);
const s = new Date(timestamp).toLocaleString();
console.log(s);

s-hiiragi

javascript:(()=>{
const eVideo = document.querySelector('video.video-stream');
const eProgressBar = document.querySelector('.ytp-progress-bar');

const eMessage = document.createElement('div');
eMessage.style.cssText = 'color: red; font-size: 16px;';
const eContainer = document.querySelector('#chat-container');
eContainer.parentNode.insertBefore(eMessage, eContainer.nextSibling);

const makeLagMessage = (s) => `リアルタイムから${s}秒ズレています。`;

s-hiiragi

javascript:(()=>{
const e = document.querySelector('#secondary #related');
e.style.visibility = e.style.visibility === 'hidden' ? '' : 'hidden';
})();

s-hiiragi

UWSC 記録方法ごとの違い

Windows 10の電卓アプリで1+1=を記録してみる

低レベル記録

MMV(1038,913,203)
MMV(1040,913,15)
MMV(1046,913,15)

s-hiiragi

' 複数のセル範囲を結合する
Function JoinRanges(ParamArray rs() As Variant)

    Dim c As Long
    Dim i As Long
    Dim k As Long
    Dim r As Variant
    Dim z() As Variant
    
    c = 0

s-hiiragi

' 2つのセル範囲を結合する
Function JoinRange(x As Range, y As Range)

    Dim xCnt As Long
    Dim yCnt As Long
    Dim i As Long
    Dim z()

    xCnt = x.Count
    yCnt = y.Count