Skip to content

Instantly share code, notes, and snippets.

View lolicsystem's full-sized avatar

lolicsystem lolicsystem

2 followers · 1 following
View GitHub Profile
@lolicsystem
lolicsystem / gist:086c712f446ace12d6997e633e39588d
Created October 30, 2020 07:12
Google日本語入力のキーマップ（変換を Ctrl-; で行っているのが特徴）
status key command
Precomposition Ctrl ; IMEOff
Composition Ctrl ; IMEOff
Conversion Ctrl ; IMEOff
Composition Ctrl \ IMEOff
Precomposition Ctrl \ IMEOff
Conversion Ctrl \ IMEOff
Composition Hankaku/Zenkaku IMEOff
Conversion Hankaku/Zenkaku IMEOff
Precomposition Hankaku/Zenkaku IMEOff
@lolicsystem
lolicsystem / pawoo_follower_listupper.pl
Created May 4, 2017 20:34
pawooていうかマストドンで特定ユーザのフォロワー（またはフォロー）一覧を得るスクリプト
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
use JSON;
use feature qw/say/;
my $instance = 'pawoo.net';
my $id = 'xxxxx';
@lolicsystem
lolicsystem / pixiv_nomore_fu.user.js
Created October 13, 2012 15:13
Pixivから腐向け画像を消去する、Firefox用Greasemonkeyスクリプト
// ==UserScript==
// @name pixiv no more FU
// @namespace http://lolicsystem.com/gm_scripts/
// @description This is a script that makes the picture whose title contains the NG word "腐" (meaning Homosexuality in Japanese) invisible.
// @include http://www.pixiv.net/*
// @author lolicsystem (@lolicsystem / twitter)
// @version 0.1
// ==/UserScript==
(function () {
@lolicsystem
lolicsystem / remove_plural_br-tag_from_ameblo.user.js
Created June 9, 2012 05:48
アメブロ本文中の過剰な改行を削除するグリモン
// ==UserScript==
// @name remove plural br-tag from ameblo
// @namespace http://lolicsystem.com/gm_scripts/
// @description アメブロ本文中の過剰な改行を削除します
// @include http://ameblo.jp/*
// @author lolicsystem
// @version 1
// ==/UserScript==
(function () {
@lolicsystem
lolicsystem / futalog_largeimage.user.js
Created May 10, 2012 07:05
ふたろぐばこの画像を最初から大きい画像にするグリモン
// ==UserScript==
// @name futalog_largeimage
// @namespace http://lolicsystem.com/gm_scripts/
// @description ふたろぐばこの画像を最初から大きい画像にする
// @include http://futalog.com/*.htm
// @author Chiemimaru Kai (http://twitter.com/lolicsystem)
// @version 0.1
// ==/UserScript==
(function () {
@lolicsystem
lolicsystem / megahit_idol_image_list.user.js
Created August 28, 2011 01:52
megahitの月別イメージDVD発売リストに、ジャケ写も表示させるようにするグリモン。
// ==UserScript==
// @name megahit idol image list
// @namespace http://lolicsystem.com/gm_scripts/
// @description megahit idol image list
// @include http://www.megahit.co.jp/dvd/*
// @author Chiemimaru Kai (lolicsystem)
// @version 0.2
// ==/UserScript==
(function () {
@lolicsystem
lolicsystem / generate_formula7.pl
Created November 15, 2010 18:18
AI::Prologのバックトラックを、そのままイテレータとして使用して、「4桁の数字に3回四則演算を行う RPN」を自動生成してみた例。遅い！ あと、Prolog部の「formula/1」の定義のカット（!）を取ると帰ってこなくなる。ところが、SWI-Prolog等では帰ってくる。再帰最適化の違いのせい？？
#!/usr/bin/perl
use strict;
use warnings;
use AI::Prolog;
use 5.010;
my $database =<< 'END_PROLOG';
append([], Z, Z).
append([W|X1], Y, [W|Z1]) :- append(X1, Y, Z1).
@lolicsystem
lolicsystem / validation_test.pl
Created November 12, 2010 09:28
4桁の数字に3回四則演算を行う RPN を作る際に、「数値(d)と演算子(o)の積み方」 をキチンと考えないと、計算できない式ができてしまうので、そのバリデーションを行うのに AI::Prolog を使ってみた。ちなみに、「式というのは数値そのものか、2個の式の後に1個の演算子が付くもの」というのをPrologで宣言している。以下、そのテスト。
#!/usr/bin/perl
use strict;
use warnings;
use AI::Prolog;
use 5.010;
my @formulae = (
"d", # 数だけは式だよね。OK 出るはず。
@lolicsystem
lolicsystem / four_digits_and_four_operations.pl
Created November 12, 2010 09:09
0000～9999 までの1万個の数字のうち、「各桁の数字と四則演算を使って 10 を作れるもの」 をリストアップする。引数を与えると、10 以外の数を指定できる、みたいな。
#!/usr/bin/perl
use strict;
use warnings;
use Math::BaseCalc;
use Math::RPN;
use 5.010;
my $target = shift;
$target //= 10;
@lolicsystem
lolicsystem / make_mapdata.pl
Created August 23, 2010 15:14
左上が北緯90°東経0°、右下が南緯90°西経0°なメルカトル図法の地図データから、「黒」の点（海岸線？）の緯度経度を計算し、2次元配列に納め、JSONで出力。出力した結果は、地球儀描画に用いる。
#!/usr/bin/perl
use strict;
use warnings;
use Math::Round;
use GD::Image;
use JSON;
use 5.010;
my $image = GD::Image->newFromPng("worldmap.png");