fornext1119

Option Explicit

Private fs: Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Private folder: Set folder = fs.GetFolder(WScript.Arguments(0))

Private xl: Set xl = CreateObject("Excel.Application")
xl.Visible       = True
xl.DisplayAlerts = False '警告メッセージをOFF

'ファイル一覧を取得

fornext1119

var    fs				=	WScript.CreateObject("Scripting.FileSystemObject"); 
var	search_folder	=	WScript.Arguments(0);
var	copy_folder		=	WScript.Arguments(1);
var	mode			=	"";
if (WScript.Arguments.length > 2)
	mode			=	WScript.Arguments(2);

if (mode == "")
	WScript.Echo("confirm mode");
else if (mode == "c")

fornext1119

http://www.joshkunz.com/iTunesControl/main.html

fornext1119

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const VK_LMENU As Long = &HA4
Private Const VK_LCONTROL As Long = &HA2
Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY
Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP

fornext1119

#循環節の長さ

1. 素因数が2と5のみで構成されるならば，有限小数
2. 素因数に2と5が含まれていなければ，純循環小数
3. それ以外の場合，混循環小数

##純循環小数 の 場合
素数 p の逆数を循環小数で表した時の循環節の長さ k は、次の式で表される。
k は 10^k≡1 (mod p) となる最小の数

整数 n, m の差が、自然数 d の倍数になるとき、n と m は法 d に関して合同であるといい、 

fornext1119

###Scala

(999.0 + math.log10(5.0) / 2.0) / (math.log10((1.0 + math.sqrt(5.0) ) / 2.0))

res0: Double = 4781.859270753068

(BigInt(1618033989).pow(4781) / BigInt(1000000000).pow(4780) / (BigInt(1236067977) + BigInt(1000000000))).toString().length

fornext1119

scala.util.control.Breaks.breakable {
    for (i <- 999 to 100 by -1; j <- 0 to 1) {
        var x = i
        var y = i - j
        do {
            if (x % 11 == 0 || y % 11 == 0 ) {
                var s = (x * y).toString
                if (s == s.reverse) {
                    println(x + " * " + y + " = " + s)
                    scala.util.control.Breaks.break

fornext1119

Option Explicit

Private cnt: cnt = 0
Private max: max = 0

Call main

WScript.Echo "CNT = " & cnt
WScript.Echo "MAX = " & max

fornext1119

Option Explicit

Dim prev: prev = 1
Dim curr: curr = 2
Dim sum:  sum  = 0
Do While curr <= 4000000
  WScript.Echo curr
	If curr mod 2 = 0 Then
		sum = sum + curr
	End If

fornext1119

#単純に加算
$sum = 0
foreach ($i in 1..999)
{
    if (($i % 3) -eq 0)
    {
        $sum += $i
    }
    elseif (($i % 5) -eq 0)
    {