Iruyan_Zak Iruyan-Zak

## index.html
<head>
    <title>Spin radio button</title>
    <link rel="stylesheet" href="style.css">
</head>
<body>
    <div class="forms-area">
        <h3>性別</h3>
        <div class="classic-area">
            <div class="" ><input type="radio" name="classic-gender" value="1"> 男性</div>
            <div class="" ><input type="radio" name="classic-gender" value="2"> 女性</div>

## incremental-search.elm
module Main exposing (main)

import Html exposing (Html, Attribute, program, text, div, input, ul, li)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import String exposing (contains)
import List
---- MODEL ----


## 00 回転寿司.sh
echo -ne '🍣　sed 🍣　で始める簡単ループエンジン　' | sed -E ':b;p;s/(.)(.*)/\2\1/;bb'| xargs -i bash -c 'sleep 0.2 && echo -ne \\r{}'

## BTN_System.bs
10 P=0
11 C=0
20 POKE #800,#21,10,1,#69
21 FOR I=0 TO 7: POKE #804+I, 0: NEXT
23 POKE #80C, C
100 B=BTN()
101 IF P OR NOT B GOTO 200
110 C=C+1
120 POKE #804, C
121 S=0: FOR I=0 TO 11: S=S^PEEK(#800+I):NEXT

## 0 100万円山分け問題 2回目結果
集まった票数 233票

1,000人集まる気配がなかったので、大体4分の1程度の票数ですが締め切りました。
それぞれの得票を約4倍すると最終結果になると思われます。

そうすると、最終的な当選番号は5か6になると予想されます。
また、前回の当選番号である15は避けられ、反対に10%以上の人が18を選択していることもわかりました。

調査にご協力いただき、ありがとうございました。

## 0 100万円山分け問題結果
100万円山分け問題の結果

当選番号：15

15を選択した14人には 66,666 円が贈られます！(シミュレーションなので贈られません)

当選者(投稿順)
   No.  Twitter ID
   118	unti_long
   258	uh12230

## CS_03.answer
Newton:
 10.000000
 9.053713
 8.165439
 7.386125
 6.791151
 6.454310
 6.355707
 6.348322
 6.348283

## 03.log
Input your name: Player's HP: 768
Boss's HP: 12345678
Next round=>
Round 1/10
	Player's Attack!
	Boss's HP: 12345667 (-11)
	Boss's Attack!
	Player's HP: 602 (-166)
Next round=>
Round 2/10

## CS_02.answer
0:      -1.000000
1:      0.000000
2:      inf
3:      1.000000
4:      2.000000
5:      1.500000
6:      1.666667
7:      1.600000
8:      1.625000
9:      1.615385

## hoge.hs
import Data.List (sum)

-- エントリーポイント
main :: IO ()
main = print . sum . pickOdds $ [1..20]
{-
  `sum . pickOdds` について
  `.` 演算子は後ろの関数の戻り値を前の関数の第1引数に渡す
  (Haskellはデフォルトでカリー化するので、例えば2引数関数に1引数を渡すと1引数関数が帰ってきます)
	<head>
	<title>Spin radio button</title>
	<link rel="stylesheet" href="style.css">
	</head>
	<body>
	<div class="forms-area">
	<h3>性別</h3>
	<div class="classic-area">
	<div class="" ><input type="radio" name="classic-gender" value="1"> 男性</div>
	<div class="" ><input type="radio" name="classic-gender" value="2"> 女性</div>
	module Main exposing (main)

	import Html exposing (Html, Attribute, program, text, div, input, ul, li)
	import Html.Attributes exposing (..)
	import Html.Events exposing (..)
	import String exposing (contains)
	import List
	---- MODEL ----
	10 P=0
	11 C=0
	20 POKE #800,#21,10,1,#69
	21 FOR I=0 TO 7: POKE #804+I, 0: NEXT
	23 POKE #80C, C
	100 B=BTN()
	101 IF P OR NOT B GOTO 200
	110 C=C+1
	120 POKE #804, C
	121 S=0: FOR I=0 TO 11: S=S^PEEK(#800+I):NEXT
	集まった票数 233票

	1,000人集まる気配がなかったので、大体4分の1程度の票数ですが締め切りました。
	それぞれの得票を約4倍すると最終結果になると思われます。

	そうすると、最終的な当選番号は5か6になると予想されます。
	また、前回の当選番号である15は避けられ、反対に10%以上の人が18を選択していることもわかりました。

	調査にご協力いただき、ありがとうございました。
	100万円山分け問題の結果

	当選番号：15

	15を選択した14人には 66,666 円が贈られます！(シミュレーションなので贈られません)

	当選者(投稿順)
	No. Twitter ID
	118 unti_long
	258 uh12230
	Newton:
	10.000000
	9.053713
	8.165439
	7.386125
	6.791151
	6.454310
	6.355707
	6.348322
	6.348283
	Input your name: Player's HP: 768
	Boss's HP: 12345678
	Next round=>
	Round 1/10
	Player's Attack!
	Boss's HP: 12345667 (-11)
	Boss's Attack!
	Player's HP: 602 (-166)
	Next round=>
	Round 2/10
	0: -1.000000
	1: 0.000000
	2: inf
	3: 1.000000
	4: 2.000000
	5: 1.500000
	6: 1.666667
	7: 1.600000
	8: 1.625000
	9: 1.615385
	import Data.List (sum)

	-- エントリーポイント
	main :: IO ()
	main = print . sum . pickOdds $ [1..20]
	{-
	`sum . pickOdds` について
	`.` 演算子は後ろの関数の戻り値を前の関数の第1引数に渡す
	(Haskellはデフォルトでカリー化するので、例えば2引数関数に1引数を渡すと1引数関数が帰ってきます)