2012-01-01から1年間の記事一覧
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
3か5の倍数になっている1000未満の自然数を足し合わせよ 10未満の自然数のうち, 3 もしくは 5 の倍数になっているものは 3, 5, 6, 9 の4つがあり, これらの合計は 23 になる. 同じようにして, 1000 未満の 3 か 5 の倍数になっている数字の合計を求めよ. htt…
Problem 1 Multiples of 3 and 5 3と5の倍数 Problem 2 Even Fibonacci numbers 偶数のフィボナッチ数 Problem 3 Largest prime factor 最大の素因数 Problem 4 Largest palindrome product 最大の回文積 Problem 4その２ Problem 5 Smallest multiple 最小…
Problem 1 Multiples of 3 and 5 3と5の倍数 Problem 2 Even Fibonacci numbers 偶数のフィボナッチ数 Problem 3 Largest prime factor 最大の素因数 Problem 4 Largest palindrome product 最大の回文積 Problem 4その２ Largest palindrome product 最大の…
chl={}^1_1\mbox{H} \\ {}^2_1\mbox{H} \\ {}^3_1\mbox{H} \\ \mbox{H}_{2}\mbox{O} \\ \mathrm{H}_{2}\mathrm{O} \\ \mbox{Cl}^{2-}
<img src="http://chart.apis.google.com/chart ?cht=tx &chs=1x0 &chf=bg,s,FFFFFF00 &chco=000000 &chl=y=ax%2bb"/> chl=y=ax^2%2bbx%2bc <img src="http://chart.apis.google.com/chart ?cht=tx &chs=1x0 &chf=bg,s,000000 &chco=ffffff &chl=(a%2bb)^2=a^2%2b2ab%2bb^2" /> chco=ff000…
指定したフォルダ配下の曲を一括インポート $global:it = New-Object -ComObject iTunes.Application $global:artist_name = "" $global:album_name = "" $global:truck_name = "" $global:truck_no = 0 #指定したフォルダ配下の曲を一括インポート # \アー…
wav形式で保存済みの曲をインポートする場合 $it = New-Object -ComObject iTunes.Application $sts = $it.ConvertFile("c:\WAV\01 矢沢永吉\01 キャロル\01 ルイジアンナ\02 ヘイ・タクシー.wav") while($sts.InProgress) { Start-Sleep 1 } foreach ($trac…
VBScript Option Explicit Const acOutputReport = 3 Const acViewPreview = 2 Const acFormatXLS = "Microsoft Excel (*.xls)" Const acFormatRTF = "Rich Text Format (*.rtf)" Const acFormatSNP = "Snapshot Format (*.snp)" Const acFormatHTML = "HTML…
VBScript Option Explicit 'IE起動 Dim ie: Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Toolbar = True ie.MenuBar = True ie.AddressBar = True ie.StatusBar = True 'ログオン画面 ie.Navigate "http://192.168.1.1/zzz…
Ruby PS S:\> irb irb(main):001:0> puts "hello world" hello world => nil irb(main):002:0> exitPS S:\>irb irb(main):001:0> x = 10 => 10 irb(main):002:0> y = 20 => 20 irb(main):003:0> z = 30 => 30 irb(main):004:0> area = (x*y + y*z + z*x) * 2…
PowerShell [System.Reflection.Assembly]::LoadWithPartialName("System.Data") $cs = "Provider=MSDAORA;User ID=xxxxx;Password=yyyyy;Data Source=zzzzz" $oraCon = New-Object System.Data.OleDb.OleDbConnection($cs) $oraCmd = New-Object System.Dat…
VBScript Option Explicit Private fs Private conn '結果出力 Private Sub writeResult(rs, sqlFile) '上書きか、追加書き込みか Dim mode: mode = "2" '2:ForWriting If WScript.Arguments.Count > 2 Then If WScript.Arguments(2) = "1" Then mode = "8" …
VBScript Option Explicit Private fs Private conn Private excelApp Private excelBook Private excelSheet '出力シートの準備 Private Sub openSheet(iSheet, sqlFile) '必要なら、シートを追加する If iSheet > excelBook.WorkSheets.Count Then excelBo…
英数字だけなら、これでOK <a href='http://www.youtube.com/results?search_query=YAZAWA+EIKICHI+LAHAINA&aq=f'>矢沢永吉 ラハイナ</a> 矢沢永吉 ラハイナ日本語ありなら、こんな風に encode してあげないといけないので、 <a href='http://www.youtube.com/results?search_query=%E7%9F%A2%E6%B2%A2%E6%B0%B8%E5%90%89+%E3%83%A9%E3%83%8F%E3%82%A4%E3%83%8A&aq=f'>矢沢永吉 ラハイナ</a>
VBScript For Each arg In WScript.Arguments WScript.Echo arg Next For i = 0 To WScript.Arguments.Count - 1 WScript.Echo WScript.Arguments(i) Next JScript var arg = new Enumerator(WScript.Arguments); for (;!arg.atEnd(); arg.moveNext()) WScri…
VBScript Dim excelApp: Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book: Set book = excelApp.Workbooks.Open(WScript.Arguments(…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
PlayList を新規追加して、インポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set playList = iTunesApp.LibrarySource.Pla…
既にmp3形式に変換済みの曲をインポートする場合 Set iTunesApp = WScript.CreateObject("iTunes.Application") WScript.StdOut.WriteLine "登録開始..." WScript.StdOut.WriteLine iTunesApp.CurrentEncoder.Name Set sts = iTunesApp.LibraryPlaylist.AddF…
with a as ( select 0 as n from dual union all select 1 from dual ) select case when mod(n, 3) = 0 and mod(n, 5) = 0 then 'FizzBuzz' when mod(n, 3) = 0 then 'Fizz' when mod(n, 5) = 0 then 'Buzz' else to_char(n) end from ( select a01.n + a02…
Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF Dim iTunesApp Set iTunesApp = WScript.CreateObject("iTunes.Application") 'ブックを読…
Option Explicit Dim excelApp Set excelApp = CreateObject("Excel.Application") excelApp.Visible = True excelApp.DisplayAlerts = False '警告メッセージをOFF 'ブックを読み取り専用で開く Dim book Set book = excelApp.Workbooks.Open(WScript.Argum…
