Share Code Quickly

What is Harigami?

Harigami is a simple source code sharing service. You can share source code by an URL which is issued after submission.
You can also run your source code online such as Python, Ruby, JavaScript and so on.
For free.Use for code review.
Preferences
anonymous No title
Python
法人様の新規事業として、 
もしくは個人の独立開業として、デリバリーヘルスのご開業をご検討していただけませんか? 
https://yume-kaigyou.com/ 
 
オーナー業として、スタッフに任せることも可能です。 
 
オーナー様の独自ブランド(屋号)でデリバリーヘルスを開業できますし、 
もしくは弊社が運営し成功しているブランドで開業も出来ます。 
もちろん、多店舗経営を目指していただきます。 
 
2兆円産業と言われている巨大市場にも関わらず、一般企業や上場企業はもちろん、個人も参入してきません(ノウハウも公開されておらず参入出来ない!!という表現の方が正しいのかもしれませんが…)。 
 
経営者の立場から見れば、低資本で参入でき、需要は旺盛、十分な利益金額、利益率が高い産業・業界にも関わらず…です。 
 
ビジネスとしてしっかり運営さえすれば、十分な利益どころか、莫大な利益が出ます!! 
やり方次第では、サラリーマンでは考えられない程の莫大な収入を手にすることができます。 
アイディアをどんどん出してください。 
 
デリヘル開業グループは、デリバリーヘルス事業を、「ビジネス」として本気で運営しております。 
実際の店舗のご見学、既存のオーナー様とも面談が可能です。 
自信があるからできます。 
 
尚、弊社には過去、反社勢力に所属をしていた者や法を犯した者は1人もおりませんのでご安心ください。 
いわゆる、怖い人は1人もおりません。全員、大卒以上の学歴を持っております。 
※反社の方、順法精神のない方はご遠慮させていただいております。 
 
「よくあるご質問」等は、20,000字、記載させて頂きました。 
弊社の本気度を感じてくだされば嬉しく思います。 
 
よろしくお願いします。 
 
デリヘル開業グループ 
https://yume-kaigyou.com/
anonymous No title
Python
anonymous コラッツ予想 計算過程:列方向へ出力
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲
    '※処理速度に影響を与えるため、tryMin + tryTimis < 100000000までは1000固定
    
    Range("A1").Resize(tryTimes, culcTiemsCapa + 2) = CollatzFullHorizontal(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

'計算過程:列方向へ出力
Function CollatzFullHorizontal( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(tryTimes - 1, culcTiemsCapa + 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        col = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            col = col + 1
            arr(row, col) = n
        Loop
        arr(row, 0) = col - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = col + 1 To culcTiemsCapa + 1
            arr(row, j) = ""
        Next
        '--------------------------------------------
        row = row + 1
    Next
    CollatzFullHorizontal = arr
End Function


anonymous コラッツ予想 計算過程:行方向へ出力
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。※上限16384(Excelの最大列数)
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲
    '※処理速度に影響を与えるため、tryMin + tryTimis < 100000000までは1000固定
    
    
    Range("A1").Resize(culcTiemsCapa + 2, tryTimes) = CollatzFullVertical(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

'計算過程:行方向へ出力
Function CollatzFullVertical( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(culcTiemsCapa + 1, tryTimes - 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        row = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            row = row + 1
            arr(row, col) = n
        Loop
        arr(0, col) = row - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = row + 1 To culcTiemsCapa + 1
            arr(j, col) = ""
        Next
        '--------------------------------------------
        col = col + 1
    Next
    CollatzFullVertical = arr
End Function
anonymous No title
PHP
<!DOCTYPE html>
<html>
<head>
	<meta charset="UTF-8">
</head>
<body>
<h3>本当にこの投稿を削除しますか?</h3><hr>

<?php
	$dsn = 'データベース名';
	$user = 'ユーザー名';
	$password = 'パスワード';
	
	try {
		$dbh = new PDO($dsn, $user, $password, array(PDO::ATTR_ERRMODE => PDO::ERRMODE_WARNING));
	} catch (PDOException $e) {
		echo $e->getMessage();
		die();
	}
		
	$table = 'SELECT * FROM post_list';
	$get = $dbh ->query($table);
	$posts = $get ->fetchAll();
	
	if (!empty($_POST['delete']) and !empty($_POST['delete_pass'])) {
		foreach ($posts as $post) {
			if ($_POST['delete'] == $post['id'] and $_POST['delete_pass'] == $post['password']) {
				$id = $post['id'];
				$name = $post['name'];
				$comment = $post['comment'];
				$time = $post['time'];
				$pass = $post['password'];
				echo $post['id']. " ". $post['name']. "<br>". $post['comment']. "<br>". $post['time']. "<hr>";
			}
		}
	}
	
	if (empty($id)) {
		echo "パスワードが違います";
	}	
	$dbh = null;
?>
<form action="kadai_2-6-db_home.php" method="post">
	<input type="hidden" name="delete" value="<?php if (!empty($id)) { echo $id; } ?>">
	<input type="hidden" name="delete_pass" value="<?php if (!empty($pass)) { echo $pass; } ?>">
	<input type="submit" value="削除">
</form>
</body>
</html>
anonymous コラッツ予想 計算回数のみ出力
VBA
Option Explicit


Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。
        
    Range("A1").Resize(tryTimes, 2) = CollatzOnlyResult(tryMin, tryTimes)
                
End Sub

'計算回数のみ出力
Function CollatzOnlyResult( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(tryTimes - 1, 1) As Variant
    Dim i As Variant, n As Variant, cnt As Long, row As Long
    
    
    For i = tryMin To tryMax
        n = i
        cnt = 0
        arr(row, 0) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            cnt = cnt + 1
        Loop
        arr(row, 1) = cnt & "回"
        row = row + 1
    Next
    CollatzOnlyResult = arr
End Function


anonymous コラッツ予想 計算過程:列方向へ出力
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲 ※処理速度に影響を与えるため、tryMinに応じて要変更
    '※culcTiemsCapaの上限16382(Excelの最大列数-2)
    
    Range("A1").Resize(tryTimes, culcTiemsCapa + 2) = CollatzFullHorizontal(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

'計算過程:列方向へ出力
Function CollatzFullHorizontal( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(tryTimes - 1, culcTiemsCapa + 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        col = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            col = col + 1
            arr(row, col) = n
        Loop
        arr(row, 0) = col - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = col + 1 To culcTiemsCapa + 1
            arr(row, j) = ""
        Next
        '--------------------------------------------
        row = row + 1
    Next
    CollatzFullHorizontal = arr
End Function




anonymous コラッツ予想 計算過程:行方向へ出力
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。※上限16384(Excelの最大列数)
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲 ※処理速度に影響を与えるため、tryMinに応じて要変更
    
    
    Range("A1").Resize(culcTiemsCapa + 2, tryTimes) = CollatzFullVertical(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

'計算過程:行方向へ出力
Function CollatzFullVertical( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(culcTiemsCapa + 1, tryTimes - 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        row = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            row = row + 1
            arr(row, col) = n
        Loop
        arr(0, col) = row - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = row + 1 To culcTiemsCapa + 1
            arr(j, col) = ""
        Next
        '--------------------------------------------
        col = col + 1
    Next
    CollatzFullVertical = arr
End Function
anonymous No title
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。※上限16384(Excelの最大列数)
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲 ※処理速度に影響を与えるため、tryMinに応じて要変更
    'culcTiemsCapa = 1000で tryMin = 10000000程度までは実行可能か
    
    Range("A1").Resize(culcTiemsCapa + 2, tryTimes) = collatz(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

Function collatz( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(culcTiemsCapa + 1, tryTimes - 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        row = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            row = row + 1
            arr(row, col) = n
        Loop
        arr(0, col) = row - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = row + 1 To culcTiemsCapa + 1
            arr(j, col) = ""
        Next
        '--------------------------------------------
        col = col + 1
    Next
    collatz = arr
End Function


anonymous No title
VBA
Option Explicit

Sub main()
    Cells.ClearContents
    
    Const tryMin As Variant = 1 '試行数値の最初の数値
    Const tryTimes As Long = 1000 'tyrMinから何番目まで計算したいか。※上限16384(Excelの最大列数)
    
    Const culcTiemsCapa As Long = 1000 '計算回数許容範囲 ※処理速度に影響を与えるため、tryMinに応じて要変更
    'culcTiemsCapa = 1000で tryMin = 10000000程度までは実行可能か
    
    Range("A1").Resize(culcTiemsCapa + 2, tryTimes) = collatz(tryMin, tryTimes, culcTiemsCapa)
                
End Sub

Function collatz( _
    ByVal tryMin As Variant, _
    ByVal tryTimes As Long, _
    ByVal culcTiemsCapa As Long) _
    As Variant
    
    Dim tryMax As Variant: tryMax = tryMin + tryTimes - 1
    ReDim arr(culcTiemsCapa + 1, tryTimes - 1) As Variant
    Dim i As Variant, j As Long
    Dim n As Variant, row As Long, col As Long
    
    
    For i = tryMin To tryMax
        n = i
        row = 1
        arr(row, col) = n
        Do While n <> 1
            If Right(n, 1) Mod 2 = 0 Then 'Rigth関数はオーバーフロー対策
                n = n / 2
            Else
                n = n * 3 + 1
            End If
            row = row + 1
            arr(row, col) = n
        Loop
        arr(0, col) = row - 1 & "回"
        'このループはスピルで使用する場合はあった方が良い。スピルで使用しない場合はなくても良い
        For j = row + 1 To culcTiemsCapa
            arr(j, col) = ""
        Next
        '--------------------------------------------
        col = col + 1
    Next
    collatz = arr
End Function


年末年始は機械学習・深層学習を勉強しませんか?
広告
未経験から最短でエンジニアへの転職を目指すなら