すべてのコード

投稿されたすべてのコード一覧

過去ログツイートのテスト

require_once 'tmhOAuth.php';
function tweetPost(){
if($_GET['tweet'] == 1){ //追加：http://example.com?tweet=1 とアクセスした時に実行するように
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

ネスドット絵

あ
あ
<font size=2>
<font color=0>███████</font><br>
<font color=0>█</font><font color=red>█</font><font color=f39f95>█</font><font color=0>█</font><font color=f39f95>█</font><font color=0>██</font><font color=f39f95>█</font><font color=0>██</font><br>
<font color=0>████</font><font color=red>█</font><font color=0>█</font><font color=f39f95>█</font><font color=red>███</font><font color=0>█</font><font color=red>██</font><font color=0>█</font><br>
<font color=0>█</font><font color=c6fefd>█</font><font color=4129c5>███</font><font color=0>█</font><font color=red>█████</font><font color=0>█</font><font color=red>██</font><font color=0>█</font><br>
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

AutoHotKeyで変数代入を自動インデント

Pause::
    cb_bk = %ClipboardAll%
    
    Clipboard =
    Send, ^c
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

AutoHotKeyで変数代入を自動インデント

Pause::
    cb_bk = %ClipboardAll%
    
    Clipboard =
    Send, ^c
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

数値を2進数（文字列）に変換するモジュール

#module
#defcfunc tobit int num
    s=""
    repeat 32
        s = str((num & 1<<cnt)!0) + s
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る

(蛇足) can_unify/2を使って、定義3のremoveを定義1,2とよく似た形で定義する。

元：「remove 述語の定義―リスト[a:1, a:2]から「a:_」をすべて取り除いた結果は？」(http://codetter.com/?p=1077) 特にメリットはない。
元：「remove 述語の定義―リスト[a:1, a:2]から「a:_」をすべて取り除いた結果は？」(http://codetter.com/?p=1077) 特にメリットはない。
% can_unify/2
% 「can_unify(X, Y) が成功する」⇔「X = Y が成功する」、ただし単一化は行われない。
can_unify(X, Y) :-
    setof(Z, (Z = X, X = Y), [_|_]).
    
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

remove 述語の定義―リスト[a:1, a:2]から[a:_ をすべて取り除いた結果は？

リストからある値の要素をすべて除去する述語 removeを使って、 [a:1, a:1, a:2, b:2] から「a:_」を取り除く場合。 定義1、定義2 では a:2 が残る。(a:1 を除去する...
リストからある値の要素をすべて除去する述語 removeを使って、 [a:1, a:1, a:2, b:2] から「a:_」を取り除く場合。 定義1、定義2 では a:2 が残る。(a:1 を除去する...
% テストデータ
ls([a:1, a:1, a:2, b:2]).
% 定義1 - 等号の失敗を使って排除
remove_v1(_, [], []).
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

TaskDialog Sample

TaskDialogIndirect API を使ったものはすでにあるけど、TaskDialog API を使ったものがなかったので作ってみた。
TaskDialogIndirect API を使ったものはすでにあるけど、TaskDialog API を使ったものがなかったので作ってみた。
// TaskDialog.hsp
// TaskDialog Sample by akk026
#uselib "comctl32.dll"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • タグ：
  • タグはありません

TsubuyakiSoup.as 認証できない不具合修正&API 1.1 対応化 その3

認証ページが開かない不具合修正。長いので一部のみです。http://codetter.com/?p=910 http://codetter.com/?p=984 も参照すること。
認証ページが開かない不具合修正。長いので一部のみです。http://codetter.com/?p=910 http://codetter.com/?p=984 も参照すること。
#defcfunc GetAuthorizeAdress
    // アクセストークン取得
    sdim Argument
    RESTAPI ResponseBody, ResponseHeader, METHOD_GET, "oauth/request_token", Argument
    if stat != 200 : return "Error"
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • hk1v
  • 2014/3/7 23:32
  • タグ：
  • タグはありません

【HSP3】HSP3x64サポートの為の関数呼び出しアセンブリv2(これはひどい)

前のが正常動作してなかったので修正。ひどすぎて読みずらいぞ！
前のが正常動作してなかったので修正。ひどすぎて読みずらいぞ！
; masm64 (x64)
;.686
;.mmx
;.xmm
;.model flat
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
コードを見る
  • hk1v
  • 2014/3/6 0:53
  • タグ：
  • タグはありません