早押しクイズで問題音声ファイル作成バッチ処理でエラーが出ていて、問題の作成ができていませんでした。せっかく問題を登録していただいたのに反映できていなくて申し訳ありませんでした。エラーについては解消し、問題の登録も完了しています。

SELECT AVG(Price) AS 平均単価 FROM Products ; 出てきた関数は以下の5つ。 AVG 平均 COUNT 数 MAX 最大 MIN 最小 SUM 合計 新しい番号を取るために使ったりしますね。 SELECT MAX(CustomerID) + 1 FROM Customers ;

インターネットオプションの機能を追加しました。IEコンポーネントの機能を呼び出しただけです。やり方は印刷機能作成のときとほとんど同じ。 機能 Execの引数 インターネットオプション HTMLID_OPTIONS ソースのイメージはこんな感じ。 var ComTarget: IOle…

就職を追加しました。

難読化の第2弾です。今回使用するのはAcme::Bleachです。使い方は簡単で、難読化したいソースにuse Acme::Bleach;を追加するだけ。この前と同じプログラムでやってみましょう。 use strict; use Acme::Bleach; while (<>) { 1 while $_ =~ s/(.*\d)(\d{3})/$…

与えられた数字のケタ数です。割と簡単。 nums = [2469, 600, 1] main = do print $ map keta nums keta :: Int -> (Int, Int) keta n = let s = show n l = length s in (l, 10 ^ (l - 1)) タイトルに書いた通りなのですが、変数名を1文字にするというのに…

せっかくなのでPerlの難読化をやってみます。Acme::EyeDropsというモジュールがあってVisual Programming in Perlと言っているのですが、思いっきり難読化ツールです。元になるソースを作ってsample.plとして保存しておきます。 use strict; while (<>) { 1 …

【PHP TIPS】 80. PHPでJavaScriptを難読化JavaScriptのプログラムを難読化するライブラリが紹介されています。ちょっと気になるのがこの部分。 手軽に作成して使えるのがJavaScriptのいいところでもありますが、どうしてもユーザには見られたくないコードも…

SELECT CustomerName || '様' AS お名前 FROM Customers ; で連結になります。SQLServerの場合は ではなく+を使うそうです。統一してくれればいいのに。

d:id:perlcodesampleさんの「サンプルコードによるPerl入門」がはてなブックマークの人気エントリーに入っていました。1月7日からの書き始めで今のエントリーの数はすごいです。実行できるスクリプトのサンプルを書くのは結構大変だと思うのですけどね。近頃…

SELECT Height * 3 - Weight * 2.5 AS 結果 FROM Employees ; それほど目新しいところはないので、淡々と進めました。

ページ設定・印刷・印刷プレビューの機能を追加しました。追加したと言ってもIEコンポーネントの機能を呼び出しただけなので大したことはやっていないです。具体的にはIOleCommandTarget(TWebBrowserのDocument)のExecを実行しているだけ。 機能 Execの引数 …

SELECT ProductName AS 商品名 , Price * 1.05 AS 税込価格 FROM Products ; SELECT句の中で演算することができます。引っかかったのがこれ。 SELECT Amount * 0.15 AS 給与の15％ FROM Salary ; エラーはこんなのでした。 SQLの実行結果を検証しましたが誤…

次のバージョンアップに向けて機能追加中です。ちょっと画面を修正した時のイメージが取れるように、HTMLを直さなくても画面上で簡単な編集ができるようにしようと思っています。調べている中で出てきたのがcontentEditable。IEだとこんなのをアドレス欄に入…

バージョン1.1.0です。 書籍の検索機能を追加しました。 ステータスバーにリンク先URLを表示するようにしました。 アフィリエイトリンク作成機能を追加しました。 詳細画面等に楽天ウェブサービスのクレジットを表示するようにしました。 今まで.lzhでファイ…

n日後を返す関数を返す関数です。日付操作があんまり分かっていません。 import Data.Time time = UTCTime (fromGregorian 2007 7 20) (timeOfDayToTime $ TimeOfDay 20 11 42) main = do putStrLn $ show $ time putStrLn $ show $ fiveDaysLater time five…

SELECT ProductName AS 商品名 , Price AS 単価 FROM Products ; 「AS 別名」を使います。書く時は「AS 別名」を全部書いた後に列名を書きます。正直カーソルの移動が多くて面倒。「Productsテーブルから商品名と単価を取り出す。商品名の列名はProductName…

一つのテーブルから複数の列のデータを取り出すSQL。 SELECT ProductName , Price FROM Products ; カンマ区切りで列名を書きます。列を複数書く時は1行にひとつの列名を書いてカンマは改行の後に書いています。こうしておくと列の追加や削除が楽だからだそ…

始まりました。まずは簡単なところで、一つのテーブルから一つの列のデータを取り出すSQL。 SELECT CustomerName FROM Customers ; 基本ですね。これぐらいだったら頭から順番に書けますけど、本によると書き順が重要とのことなので、それに合わせて練習しま…

学習用ソフトのSQUATをインストールして起動することを確かめました。今回はこれだけ。

Haskellの勉強を細々とやっていますがこれは趣味なので、これとは別に仕事に関係する勉強もしようかと。それでSQLの勉強を始めることにしました。プロジェクトでよく使われているJavaや.NETが候補と言えば候補なのですが、変化が大きいものは若い人に任せて…

睡眠を追加しました。

リストを逆順に表示です。 main = do putStr $ unlines $ map show $ reverse [1, 2, 3, 4, 5] reverseを使わないのであればこれ。 main = do putStr $ unlines $ map show $ rev [1, 2, 3, 4, 5] rev :: [a] -> [a] rev [] = [] rev (x:xs) = rev(xs) ++ [x]

Perl表技集にMD5から元の文字列の取得を追加しました。Digest::MD5::Reverseというモジュールを使っているのですが、簡単な単語であればあっさり元の文字列が取得できます。例えば11e0eed8d3696c0a632f822df385ab3cからdatabaseという文字列を取得できます。…

議席数をドント方式で動くには動くというだけ。 import List type PartyNumber = Int numberOfSeat = 100 numberOfVotes = [123, 4, 56, 78] main = do print $ result $ numberOfWinners $ (winners numberOfSeat) $ concat $ markedDhondtTable $ dhondtTa…

入社式の社長あいさつを“見える化”するで入社式の社長あいさつをタグクラウドにするというアイデアが紹介されています。タグクラウド化にはFeed2Cloudが紹介されていますが、タグクラウド作成でも同じようなことができます。タグクラウド作成はFeed2Cloudの…