すべてのコード

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

(蛇足) 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), [_|_]).
	
コードを見る
  • タグ:
  • タグはありません

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(_, [], []).
コードを見る
  • タグ:
  • タグはありません

TaskDialog Sample

TaskDialogIndirect API を使ったものはすでにあるけど、TaskDialog API を使ったものがなかったので作ってみた。
TaskDialogIndirect API を使ったものはすでにあるけど、TaskDialog API を使ったものがなかったので作ってみた。
// TaskDialog.hsp

// TaskDialog Sample by akk026

#uselib "comctl32.dll"
コードを見る
  • タグ:
  • タグはありません

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"
コードを見る
  • hk1v
  • 2014/3/7 23:32
  • タグ:
  • タグはありません

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

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