Skip to content

Instantly share code, notes, and snippets.

@noqisofon
noqisofon / gen-wiz-chara000.raku
Created November 12, 2024 12:12
( ノ╹◡◡╹)ノ 生成されたキャラの名前を 6 から 12 個抜き出して、wiz なキャラ設定を付けてくかもしれない
my @katakana-female-names = './katakana-female-names000.tsv'.IO.lines;
my @katakana-male-names = './katakana-male-names000.tsv'.IO.lines;
my @klasses = <戦士 盗賊 僧侶 魔法使い 侍 君主 司教>;
my @sexes = <男 女>;
my @alignment = <善 中立 悪>;
my @races = <人間 ドワーフ エルフ ホブ ノーム>;
my $generate-amount = (6..12).pick;
@noqisofon
noqisofon / 0_make-list-all-file.bash
Last active November 1, 2024 06:18
( ノ╹◡◡╹)ノ いんすとろーるされてるパッケージの依存関係をグラフで見たい気もする
# `pkg-config.list-all.txt` を作成します。
pkg-config --list-all | sort -u > ./pkg-config.list-all.txt
# おまけで `./digraph` ディレクトリを作るかもしれない。
mkdir ./digraph
@noqisofon
noqisofon / chatgpt000.session.log
Created September 14, 2024 03:07
٩(′д‵)۶
User
``` scheme
(define-syntax dolist
(syntax-rules ()
((_ (it seq result))
(let loop ((xs seq))
(if (null? xs)
result
(begin
(let ((it (car xs)))
@noqisofon
noqisofon / example-dolist.scm
Created September 14, 2024 03:00
( ノ╹◡◡╹)ノ くりかえしまくろ~~~~
(include "./reiteration.scm")
(dolist (i '(0 1 2 3 4 5 6 7 8 9))
(display i)
(display " "))
@noqisofon
noqisofon / sort-example.exs
Created July 13, 2024 02:55
( ノ╹◡◡╹)ノ 多分 Elixir でソートするかもしれないやつ
defmodule Example.Sort do
def sort([]), do: []
def sort([head | tail]), do: insert(head, sort(tail))
defp insert(elt, lst) do
case lst do
[] ->
[elt]
@noqisofon
noqisofon / Collaborative_Storytelling.log
Last active June 30, 2024 06:37
( ノ╹◡◡╹)ノ ChatGPT ちゃんとコラボレーティブストーリーテリングをした例
User
コラボレーティブストーリーテリングをしましょう。
私が舞台、主要キャラクター、テーマ、プロットのはじめの方を書くので、あなたがプロットの続きを少しだけ考え、私がその後に少しだけ考え…という風に続けていきましょう。
- 舞台 :: 中世ファンタジー世界のデュランタ市周辺
- 主要キャラクター :: 不明
- テーマ :: デュランタ聖戦
- プロットのはじめの方 ::
デュランタ市は複数の宗教における聖地とされ、長くロシティ教ミポフォル派が支配していたが、フォルピピ神殿騎士団の軍勢に包囲されつつあった
@noqisofon
noqisofon / hr2message.cpp
Created January 5, 2024 08:47
( ノ╹◡◡╹)ノ HRESULT の値から対応するメッセージを取得したいよなーー、俺もな~~~~~
#include <iostream>
#include <stdexcept>
#include <windows.h>
std::string hresult_to_string( HRESULT hr ) {
constexpr size_t MESSAGE_BUFFER_SIZE = 1024;
CHAR message[MESSAGE_BUFFER_SIZE] = {};
DWORD got = FormatMessageA( FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
nullptr,
@noqisofon
noqisofon / guess_cxx_version.cpp
Created January 5, 2024 03:36
( ノ╹◡◡╹)ノ C++ のバージョンを判別したいよなー、俺もな~
#include <iostream>
#ifdef _MSVC_LANG
# if _MSVC_LANG >= 201402L
# define HOGE_LANGUAGE_ENABLE_CXX14
# endif //* _MSVC_LANG <= 201402L */
# if _MSVC_LANG >= 201703L
# define HOGE_LANGUAGE_ENABLE_CXX17
# endif //* _MSVC_LANG <= 201703L */
@noqisofon
noqisofon / openpgp.md
Created December 19, 2023 13:46
`keyoxide.org` の証明 gist
@noqisofon
noqisofon / can-you-feel-nil.org
Last active September 9, 2023 00:04
( ノ╹◡◡╹)ノ Nil を判定したいよなー、俺もなー

Nil かどうかを判定したさがある

以下のようなコードは「あー、にるい」が出力されそうですが、実際に実行してみると出力されません。

my $puyo = Nil;
say 'あー、にるい' if $puyo ~~ Nil;

なぜこうなるのかをこれから解説します。