プログラミングのお題スレ Part18

**デフォルトの名無しさん** · 2020/07/14(火) 13:53:46.47

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part17
https://mevius.5ch.net/test/read.cgi/tech/1584031367/

**デフォルトの名無しさん** · 2020/08/17(月) 09:10:13.06

どうすればいいか？ってのがよくわからない

**デフォルトの名無しさん** · 2020/08/17(月) 09:11:51.56

入力と出力をはっきりさせてほしい
それとも取引所の仕様を理解しろって話なの？

**デフォルトの名無しさん** · 2020/08/17(月) 11:17:26.81

ブルートフォースアタックしか思い浮かばない。

**デフォルトの名無しさん** · 2020/08/17(月) 18:12:59.56

入力が任意文字列で出力がそれを含む有効なビットコインアドレス
例にあるやつだとMayukoMuraokaが任意文字列の部分
XXX…っていうのはただの本体データ160bitのあまりスペースを埋めてるだけだからなんでもいい
それに対応して最後のチェックサムも任意性がある
直感だとブルートフォースが必要そうだけど実際は単純なやり方でできる

**デフォルトの名無しさん** · 2020/08/17(月) 19:37:06.53

秘密鍵でデコードできなくてもいんでしょ？
じゃあbase58で表されたバイト値と文字列を変換するだけじゃん

**デフォルトの名無しさん** · 2020/08/17(月) 19:45:01.16

基本的にはそれだけのこと
実際の手順を考えるとちょっとややこしいことがあるくらい
ということで実装してみよう

**デフォルトの名無しさん** · 2020/08/17(月) 22:43:06.44

>>352
お前がうぜえよ死ね

**デフォルトの名無しさん** · 2020/08/17(月) 22:47:24.50

>>359
お前が死ね

**デフォルトの名無しさん** · 2020/08/17(月) 22:50:53.21

よし俺がしぬよ

**デフォルトの名無しさん** · 2020/08/17(月) 22:53:16.60

夏だなあ

**デフォルトの名無しさん** · 2020/08/17(月) 22:56:52.65

>>361
じゃあ俺が死ぬよ

**デフォルトの名無しさん** · 2020/08/17(月) 22:57:17.04

お題: 『死』を表現せよ

**デフォルトの名無しさん** · 2020/08/17(月) 22:57:32.35

>>363
どうぞうどうぞ

**デフォルトの名無しさん** · 2020/08/17(月) 22:58:07.77

>>363
じゃあ死ねよ

**デフォルトの名無しさん** · 2020/08/17(月) 23:05:20.89

>>366
全然おもんないやんけ
もう一回チャンスをやろう

**デフォルトの名無しさん** · 2020/08/17(月) 23:05:35.92

じゃあ俺が死ぬよ

**デフォルトの名無しさん** · 2020/08/17(月) 23:05:59.92

くるよくるよ

**デフォルトの名無しさん** · 2020/08/17(月) 23:06:13.27

ドキドキ

**デフォルトの名無しさん** · 2020/08/17(月) 23:39:35.54

逃げたか

**デフォルトの名無しさん** · 2020/08/17(月) 23:39:58.23

笑いから逃げるな

**デフォルトの名無しさん** · 2020/08/18(火) 00:15:03.77

お題: 二人の煽り耐性から「死ね」と言い合うプログラム

煽り耐性 0.1～1
死ねと言い返す確率 (1-煽り耐性) * 100%
最初に死ねと言うのはA
入力 {Aの煽り耐性} {Bの煽り耐性}
例
> 0.1 0.8
A「死ね」
B「死ね」
A「死ね」

**デフォルトの名無しさん** · 2020/08/18(火) 01:25:39.14

if (>>373{A}%3 ==0.1&&0.8<<373{B}) print "オモロー" & "アキラ" *100% ;

**デフォルトの名無しさん** · 2020/08/18(火) 01:35:33.42

>>350 js

const input = "programmingodaisure"

let tmp_str = input;
let tmp_hex = new Uint8Array();

do {
tmp_str += "X";
tmp_hex = [0x00, ...Base58.decode(tmp_str)];
} while (tmp_hex.length < 25)

const prefix_and_data = tmp_hex.slice(0, -4);

const doubleSha256 = sha256.digest(sha256.digest(prefix_and_data))
const checkSum = doubleSha256.slice(0, 4);

const result_hex = new Uint8Array([...prefix_and_data, ...checkSum]);
const result_str = Base58.encode(result_hex);

console.log(result_str);

→ "1programmingodaisureXXXXXXXZHx9sj"

https://chainflyer.bitflyer.jp/Address/1programmingodaisureXXXXXXXZHx9sj

BASE58とSHA256のライブラリ
https://cdn.jsdelivr.net/npm/base-58@0.0.1/Base58.min.js
https://cdn.jsdelivr.net/npm/js-sha256@0.9.0/src/sha256.min.js

**デフォルトの名無しさん** · 2020/08/19(水) 16:18:46.79

>>364

#!/bin/sh
rm $0

**デフォルトの名無しさん** · 2020/08/19(水) 18:40:23.70

「生」の読みはたくさんあるのに、
「死」の読みはひとつだけ。
示唆に富んでいる。

**デフォルトの名無しさん** · 2020/08/19(水) 18:45:07.34

略して示唆トン。

**デフォルトの名無しさん** · 2020/08/20(木) 11:35:09.25

>>249
Elixir

# 蓄積変数 set は、すべての文字列の集合。abcde, bcdea などの5つ。
# word は、1文字ずらした文字列

src_word = 'abcde'

%{ set: set } = Enum.reduce_while( 1..length( src_word ), %{ set: MapSet.new, word: src_word }, fn _count, acc ->

[ head | tail ] = acc.word
next_word = tail ++ [ head ] # 1文字ずらす
acc = %{ acc | word: next_word }

if MapSet.member?( acc.set, next_word ) do
{ :halt, acc } # 既に存在すれば、break
else
acc = %{ acc | set: MapSet.put( acc.set, next_word ) }
{ :cont, acc } # ループを続ける
end
end )

# IO.inspect set

# 文字列が、集合の中に含まれているか？
[ 'deabc', 'cdeba' ]
|> Enum.map( fn str -> MapSet.member?( set, str ) end )
|> IO.inspect # [true, false]

**デフォルトの名無しさん** · 2020/08/23(日) 18:52:15.52

お題:
縦H、横Wの迷路が与えられます。
スタートからゴールに至る道順の個数を求めてください。

迷路は通路から通路へ、上下左右の4方向へのみ移動できます。
ただし、一度通った通路を引き返すような道順は無効です。
また、スタートとゴールは通路です。

1行目に迷路の高さと幅を表す整数H、Wが与えられます。
2行目からH行にわたって、迷路を表す長さWの文字列が与えられます。
文字列は 'S' 'G' '.' '#' の文字のみからなり、それぞれスタート、ゴール、通路、壁です。

例1:
入力:
5 5
S....
##.#.
...#.
##.#.
....G
出力:
2
例2:
入力:
5 5
S....
##.#.
...#.
...#.
....G
出力:
12

**デフォルトの名無しさん** · 2020/08/24(月) 04:30:51.55

>>380 C++
https://ideone.com/Omaaxj

**デフォルトの名無しさん** · 2020/08/24(月) 11:49:18.16

>>380 C++
https://wandbox.org/permlink/H36ha1xPEFeE4KXQ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/29(土) 20:44:46.53

お題: ロシアンルーレット。

リボルバーを回しますか？ (Y/n) Y
1回目: 不発
リボルバーを回しますか？ (Y/n) Y
2回目: 不発
リボルバーを回しますか？ (Y/n) n
3回目: バーン！

**デフォルトの名無しさん** · 2020/08/29(土) 21:04:26.78

>>383
仕様がわからない

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/29(土) 21:07:51.24

ロシアンルーレット
https://ja.m.wikipedia.org/wiki/%E3%83%AD%E3%82%B7%E3%82%A2%E3%83%B3%E3%83%AB%E3%83%BC%E3%83%AC%E3%83%83%E3%83%88

回転式拳銃(リボルバー)
https://ja.m.wikipedia.org/wiki/%E5%9B%9E%E8%BB%A2%E5%BC%8F%E6%8B%B3%E9%8A%83

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/29(土) 21:24:48.99

>>383-384 こんな感じか？

最初にリボルバーを回します。
(弾丸の位置を設定)
こめかみor天井？(K/t) K
1回目: 不発
もう一度リボルバーを回しますか？ (Y/n) Y
(弾丸を回転)
こめかみor天井？(K/t) K
2回目: 不発
もう一度リボルバーを回しますか？ (Y/n) n
こめかみor天井？(K/t) K
3回目: バーン！
あなたの負けです。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/29(土) 22:00:32.12

えっ、拳銃見たことないの？

**デフォルトの名無しさん** · 2020/08/29(土) 22:14:20.91

銃の弾数と空砲/実包の割合とか
オートマとリボルバーどっちかとか特定してからにしてくれ

**デフォルトの名無しさん** · 2020/08/29(土) 22:51:06.10

jsインタラクティブ入力に弱い

**デフォルトの名無しさん** · 2020/08/29(土) 23:12:55.70

>>383

https://repl.it/@vip0/bullet#index.js

// 0-5
const rand6 = () => Math.floor(Math.random() * 6);

const gun = (() => {
let pos = 0;
const shuffle = () => (pos = rand6());
shuffle();
const shut = () => pos-- === -1
return { shuffle, pos, shut }
})()

// mock 1/2 rand
const readDoShuffleAsync = () => {
const y = Math.random() >= 0.5
console.log(y ? "y" : "n")
return y
}

let i = 1;
while (true) {
console.log("リボルバーを回しますか？");
if (readDoShuffleAsync()) gun.shuffle()
const bomb = gun.shut();
console.log(`${i}回目: ${bomb ? "バーン！" : "不発"}`);
i++;
if (bomb) break
}

**デフォルトの名無しさん** · 2020/08/29(土) 23:34:19.24

VSCode の拡張機能、Quokka.js を使えば？
変数を書くだけで、内容が表示される

var a = 1
a // 1 と表示される

**デフォルトの名無しさん** · 2020/08/29(土) 23:41:03.13

swift playgroundとかjestのinlineSnapshotみたいな感じか
使うときがあるか微妙

**デフォルトの名無しさん** · 2020/08/30(日) 01:02:17.18

お題
nを受け取って1からnまでインクリメントされた配列を返してください
インクリメントするごとに値の数だけ配列に値を追加してください

例
入力: 1
出力: [1]

入力: 3
出力: [1, 2, 2, 3, 3, 3]

**デフォルトの名無しさん** · 2020/08/30(日) 01:33:41.99

お題
配列をソートする関数を受け取って安定ソートか否かを判定する
プログラムを作成してください

**デフォルトの名無しさん** · 2020/08/30(日) 06:49:46.06

お題: splitを実装せよ（ただし組み込みやライブラリのsplitは使ってはならない）

例:
>> split('abc:def:ghi', ':')
>> ['abc', 'def', 'ghi']

**デフォルトの名無しさん** · 2020/08/30(日) 08:02:58.80

>>393 J
f =: #~ @: >: @ i.

**デフォルトの名無しさん** · 2020/08/30(日) 09:40:37.84

>>393 Ruby

(0..3).each{|n| p (1..n).reduce([]){|s, a| s + [a] * a}}

# =>
[]
[1]
[1, 2, 2]
[1, 2, 2, 3, 3, 3]

>>395 Ruby

p 'abc:def:ghi'.scan(/[^:]+/) # => ["abc", "def", "ghi"]

**デフォルトの名無しさん** · 2020/08/30(日) 09:41:22.98

>>393 octave
https://ideone.com/wQ0EMk
f = @(n) repelem(1:n, 1:n);
f(3)

**デフォルトの名無しさん** · 2020/08/30(日) 09:43:25.32

>>395
JS

let minSplit = (string, separator) => {
let array = [];
let splitter = (st, sp) => {
let pos = st.indexOf(sp);
if (pos == -1) {return [st,void(0)]} else {return [st.slice(0,pos),st.slice(pos+1)]}
}
while (true) {
if (string.length == 0) {array.push(string); break}
let temp = splitter(string, separator)
if (temp[1] == void(0)) {array.push(temp[0]); break}
else {array.push(temp[0]); string = temp[1]}
}
return array
}

let minSplit2 = (string, separator) => {
let reg = new RegExp(`[^(${separator})]+${separator}?`, "g");
return `${string} `.match(reg).map(x=>x.slice(0,-1))
}

**デフォルトの名無しさん** · 2020/08/30(日) 17:51:57.01

>>395 octave
f = @(s, d) arrayfun(@(b, e) {s(b:e)}, [1 find(s == d) + 1], [find(s == d) - 1 numel(s)]);
f('abc:def:ghi', ':')

**400** · 2020/08/30(日) 18:29:58.33

一応url
https://ideone.com/Ni9DPI

**デフォルトの名無しさん** · 2020/08/30(日) 18:55:27.84

>>395 js
const replaceAll = (s, from, to) => s.replace(new RegExp(from, "g"), to)
const split = (str, sep) => JSON.parse(`["${replaceAll(str, sep, '","')}"]`)

split('abc:def:ghi', ':')
// [ 'abc', 'def', 'ghi' ]
ずるいしダブルクォート対応できてないけど思いつき

**デフォルトの名無しさん** · 2020/08/30(日) 19:52:13.41

>>395 Ruby
# セパレーターの仕様が文字か文字列か分からなかったので文字列にした
def split( str, sep )
res = []
(str + sep).scan( /(.*?)#{Regexp.escape(sep)}/ ){ res << $1 }
res
end

split('abc:def:ghi', ':') #=> ["abc", "def", "ghi"]

**デフォルトの名無しさん** · 2020/08/30(日) 19:55:11.73

>> 393 C++
https://ideone.com/ztBnmn

>> 394 C++
https://ideone.com/8YhzWh
合ってるか分からない
（とりあえずバブルソートが安定だからそれと比較した）

>> 395 C++
https://ideone.com/lmYLkx

**デフォルトの名無しさん** · 2020/08/30(日) 23:05:46.03

>>393 C++
https://wandbox.org/permlink/LxzMc7UHa1lbhcX1

コンパイル時にできる

**デフォルトの名無しさん** · 2020/08/30(日) 23:23:11.11

operator[]がconstexprなのはC++17以降らしいね

**デフォルトの名無しさん** · 2020/08/31(月) 00:36:58.36

宇宙創生から現在まで【宇宙の歴史①(過去編)】
https://www.youtube.com/watch?v=1qUrdcRkRLc
期待値が無限大な賭け(サンクトペテルブルクのパラドックス)
https://www.youtube.com/watch?v=B__gzT-rQjw
もしも生徒が全員予備校講師だったら
https://www.youtube.com/watch?v=Lk
eが超越数であることの証明
https://www.youtube.com/watch?v=_DJfeP0cmI8
【受験生へ】勉強のモチベーションをあげる3つの方法
https://www.youtube.com/watch?v=4MAPBivBEhM
線を描くだけ！万能視覚的かけ算【インド式計算】
https://www.youtube.com/watch?v=Sj6Y43D76GA
全受験生が理解するべき！偏差値とは何か
https://www.youtube.com/watch?v=Xt7VN0xCbt8
楽しいことを増やそう！科学の眼鏡をかけた１日とは【ヨビノリたくみ特別公演】
https://www.youtube.com/watch?v=u5al7kwy64k
数学の魅力とは？中田敦彦と人気教育系YouTuberヨビノリたくみ先生が初コラボ
https://www.youtube.com/watch?v=qxiAyyotAM0

**デフォルトの名無しさん** · 2020/08/31(月) 08:12:50.04

>>393 Ruby
def f(n)
(1..n).map{|v| [v]*v}.flatten
end

**デフォルトの名無しさん** · 2020/08/31(月) 09:50:22.54

>>396
何やってんのか分かんねぇ…

**デフォルトの名無しさん** · 2020/08/31(月) 12:53:04.32

f#(@:m:@ )顔文字にしか見えん

**デフォルトの名無しさん** · 2020/08/31(月) 13:15:43.55

$._. $

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/31(月) 13:37:09.03

お題: 覆面算パズルをランダムに自動生成せよ。

単語は大文字のアルファベットのみとする。
各単語は自然数を表している。
単語の各文字は数字を表している。
各単語の先頭はゼロではない。
同じ文字は同じ数字が入る。文字が違えば、数字も違う。
各単語は、３文字以上６文字以下とする。
答えは一つでなければいけない。
今回は、簡単な足し算のみとする。

例）
SEND+MORE=MONEY.
BASE+BALL=GAMES.

単語リスト：https://gist.github.com/deekayen/4148741

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/31(月) 13:41:36.35

お題：覆面算パズルを解くプログラム。

例）
SEND+MORE=MONEY
→9567+1085=10652.

BASE+BALL=GAMES
→7483+7455=14938.

**デフォルトの名無しさん** · 2020/08/31(月) 14:49:18.65

>>393
Elixir

# 再帰で、蓄積リスト・ary に、連結していく

defmodule MyList do
def add( num ), do: _add( num, [ ] )

defp _add( 0, ary ) do
ary
end

defp _add( num, ary ) when num > 0 do
_add( num - 1, List.duplicate( num, num ) ++ ary )
end
end

ary = MyList.add 3
IO.inspect ary #=> [1, 2, 2, 3, 3, 3]

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/31(月) 16:10:16.99

>>413, >>412の順に解いてね。

ヒント要る？

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/31(月) 16:12:08.02

ヒント: 各文字を変数とした連立方程式。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/31(月) 16:24:48.19

文字の数が少ないんだから、ブルートフォースでも解けるか。。。

**デフォルトの名無しさん** · 2020/08/31(月) 18:26:24.52

間違えてなければO(10!)のはずだから充分多いのでは

**デフォルトの名無しさん** · 2020/08/31(月) 18:26:56.47

ごめん10!はめちゃくちゃ小さかった

**デフォルトの名無しさん** · 2020/08/31(月) 18:43:24.02

この手の問題は総当りしたほうが速いことすらある

**デフォルトの名無しさん** · 2020/08/31(月) 19:18:49.49

しかもとっさにcombination用意できなければ（vimなどで）for文10個書いたほうが早いまである

**デフォルトの名無しさん** · 2020/08/31(月) 19:23:55.64

覆面算を制約論理プログラム iZ-Cを使って解きます。の記事があります。
https://sunasunax.hatenablog.com

**デフォルトの名無しさん** · 2020/08/31(月) 21:02:28.99

デキる人ほどフリーランス化する？★働き方改革
https://www.youtube.com/watch?v=ALflcwYOJtQ
年収890万円以下は社会のお荷物★騙される労働者
https://www.youtube.com/watch?v=CAp-ZrJpF54
騙されたくなかったら勉強しろ★他人のルールは損をする
https://www.youtube.com/watch?v=s176O6qKuPw
底辺の99％は一生底辺★10年後が見えない同僚たち
https://www.youtube.com/watch?v=4Mfiwn2sPD8
稼ぎたければ働くな★4千万円ぽっちも稼げないのはなぜ？
https://www.youtube.com/watch?v=Fi7bILN4wes
サラリーマン思考では儲からない理由
https://www.youtube.com/watch?v=iW6oAo0q0ZI
で、無職は稼いでるの？★YouTube収益はアホにも分かりやすい
https://www.youtube.com/watch?v=md0WPAsfarY
「で、年収は？」と聞くバカとは合わない社長業
https://www.youtube.com/watch?v=nEELEUhBLDk

**253** · 2020/08/31(月) 21:47:00.41

>>393 Perl5

use feature qw{signatures};
sub f($n) {
　$n ? (f($n-1), ($n) x $n) : ()
}
@a = f(3);
print "@a\n";

実行結果
~ $ perl 18_393_inc_ary.pl
The signatures feature is experimental at 18_393_inc_ary.pl line 2.
1 2 2 3 3 3

**253** · 2020/08/31(月) 21:54:06.64

>>393　Perl5、単にmapで値個数要素のリストに展開

$n = 3;
@a = map{($_) x $_} 1..$n;
print "@a\n";

j実行結果
~ $ perl 18_393_inc_ary_map.pl
1 2 2 3 3 3

**デフォルトの名無しさん** · 2020/08/31(月) 23:33:38.47

>>393
Kotlin
https://paiza.io/projects/A_eQfaut9aEoIRjfwbkN8Q

**デフォルトの名無しさん** · 2020/09/01(火) 00:01:02.40

>>393
C
https://paiza.io/projects/wwsivStn5Eq4vN7-XA5ShQ

**デフォルトの名無しさん** · 2020/09/01(火) 00:18:24.24

>>393
python
lambda x: [int(i) for i in "".join(f"{y}"*y for y in range(1,x+1))]

**デフォルトの名無しさん** · 2020/09/01(火) 14:16:37.60

全く知らない構文の言語でカンでいじっても構文エラーも止められずに
動かない機械ガチャガチャしてるだけ感すごいよな

**蟻人間** ◆T6xkBnTXz7B0 · 2020/09/01(火) 18:47:08.83

お題: テキストファイル「input.txt」の中の" dot "を"."に置換し、さらに" at "を"@"に置換したときに、RFCに従ったメールアドレスになる部分文字列を抽出し、そのメールアドレスのリストを改行区切りで出力せよ。

**デフォルトの名無しさん** · 2020/09/01(火) 18:47:54.44

>>393 Ruby
def f(n)
(1..n*(n+1)/2).map{|x| ((x*2)**0.5+0.5).to_i}
end

**デフォルトの名無しさん** · 2020/09/01(火) 18:48:39.88

>>430
テスト用のinput.txtちょーだい！

**蟻人間** ◆T6xkBnTXz7B0 · 2020/09/01(火) 18:54:57.84

>>432
「これはテキトーなテキストデータである。
例えば
user at example dot com
とか
user at example dot co dot jp
とか
katayama dot hirofumi dot mz at example dot net
とかあるでしょ。
詐欺メールに引っ掛からないためには、URLのドメインを確認することが一番。
google.com
google.co.jp
まあ、いろいろあるっしょ。」

**デフォルトの名無しさん** · 2020/09/01(火) 18:57:45.00

>>433
あざーす！

**デフォルトの名無しさん** · 2020/09/01(火) 19:10:04.73

>>430
Mail::RFC822::Address: regexp-based address validatio
http://www.ex-parrot.com/~pdw/Mail-RFC822-Address.html

**蟻人間** ◆T6xkBnTXz7B0 · 2020/09/01(火) 20:18:24.49

ヒント: 文字列置換と正規表現

**デフォルトの名無しさん** · 2020/09/01(火) 22:43:25.27

>>430
Java
https://paiza.io/projects/50iQ0JnPk_R404qr8Db80w

**デフォルトの名無しさん** · 2020/09/01(火) 22:55:31.34

>>393
Java
https://paiza.io/projects/qDtcIJeOUdsMkEIxaXEf9w

**253** · 2020/09/02(水) 00:54:35.54

>>393 Python3

(n, a) = (3, [])
for i in range(1, n+1):
　　a.extend([i] * i)
print(a)

実行結果
~ $ python 18_393_incary.py
[1, 2, 2, 3, 3, 3]

**デフォルトの名無しさん** · 2020/09/02(水) 23:08:34.85

>>394
Java
https://paiza.io/projects/PGljCEpf6PlEcYw0xzNBVQ

**デフォルトの名無しさん** · 2020/09/02(水) 23:31:10.43

>>395
Java
https://paiza.io/projects/nGioH2f50H9y8EHZkISTOg

**デフォルトの名無しさん** · 2020/09/03(木) 16:10:13.26

>>395 Ruby

def f(s,d)
eval("['"+s.gsub(d,"','")+"']")
end
p f("1 2 3 4"," ")

実行結果
["1", "2", "3", "4"]

**蟻人間** ◆T6xkBnTXz7B0 · 2020/09/03(木) 19:41:51.27

お題: バイナリファイルを読み込んで各バイトの各ビットについて、上位ビットから順に、ゼロをシフトJISの半角カナの「ﾀ」に、いち(1)を同じくの「ﾋ」に変換する変換器。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/09/03(木) 19:46:20.91

>>443
追記。逆変換器も作って動作することを確認せよ。

**デフォルトの名無しさん** · 2020/09/03(木) 21:11:58.06

>>443 Ruby
Fpath = 'test.bin'
File.open( Fpath, 'wb' ){|fh| fh.write "Hello word\n" }

Tbl10 = "\xC0\xCB".force_encoding(Encoding::BINARY)
tb = (0..255).to_a.map{|x| ('%08b' % x).tr( '10', Tbl10 ) }
buff = File.open( Fpath, 'rb' ).each_byte.map{|x| tb[x] }
puts buff.join().encode( Encoding::UTF_8, Encoding::CP932 )

print buff.map{|x| x.tr( Tbl10, '10' ).to_i(2).chr }.join

#=> ﾋﾀﾋﾋﾀﾋﾋﾋﾋﾀﾀﾋﾋﾀﾋﾀﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾀﾀﾋﾋﾀﾋﾋﾋﾋﾋﾋﾀﾀﾀﾋﾀﾀﾀﾋﾀﾀﾋﾀﾀﾀﾀﾋﾀﾀﾀﾋﾋﾀﾋﾋﾀﾀﾋﾋﾀﾋﾋﾋﾋﾋﾋﾀﾋﾀﾋ
#=> Hello word

**デフォルトの名無しさん** · 2020/09/03(木) 23:01:51.02

>>442

f("'", ?,)
# =>SyntaxError: (eval):1: unterminated string meets end of file
[''']
　　　^
(eval):1: syntax error, unexpected end-of-input, expecting ']'

**253** · 2020/09/04(金) 00:01:38.15

>>443 Perl5

print map{qw(ﾋﾀ)[$_]} map{split '', sprintf '%08b', ord} split'','Hello word';

実行結果
~ $ perl 18_443_ﾀﾋ.pl
ﾋﾀﾋﾋﾀﾋﾋﾋﾋﾀﾀﾋﾋﾀﾋﾀﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾀﾀﾋﾋﾀﾋﾋﾋﾋﾋﾋﾀﾀﾀﾋﾀﾀﾀﾋﾀﾀﾋﾀﾀﾀﾀﾋﾀﾀﾀﾋﾋﾀﾋﾋﾀﾀﾋﾋﾀﾋﾋ

**デフォルトの名無しさん** · 2020/09/04(金) 00:03:39.28

>>444
Java
https://paiza.io/projects/w8Q5NbodI6iRfjcBWA1Nqg

**253** · 2020/09/04(金) 00:04:27.06

>>447
>>444 逆変換機もか…忘れてた
まいいや

**デフォルトの名無しさん** · 2020/09/04(金) 14:52:11.79

>>443
Elixir。CP932 が無いので、途中までしか出来ません！

# 8桁・2進数・0埋め

_ = 'abc'
|> Enum.map( fn char -> :io.format( "~8.2.0B", [ char ] ) end )

# 01100001_01100010_01100011

**デフォルトの名無しさん** · 2020/09/04(金) 23:27:10.30

>>443
POSIX sh

変換 (https://paiza.io/projects/Yk6wcUtik7BZZ0AHspdZFw?language=bash)
for _b in $(od -v -A n -t d1); do
printf '%b' \
"\\$(( $_b & 128 ? 300 : 313 ))" \
"\\$(( $_b & 64 ? 300 : 313 ))" \
"\\$(( $_b & 32 ? 300 : 313 ))" \
"\\$(( $_b & 16 ? 300 : 313 ))" \
"\\$(( $_b & 8 ? 300 : 313 ))" \
"\\$(( $_b & 4 ? 300 : 313 ))" \
"\\$(( $_b & 2 ? 300 : 313 ))" \
"\\$(( $_b & 1 ? 300 : 313 ))"
done

逆変換 (https://paiza.io/projects/AN6vfPgtdJODnYL9jW8MDQ?language=bash)
od -v -A n -t o1 |
fold -b -w 32 |
while read _b8 _b7 _b6 _b5 _b4 _b3 _b2 _b1; do
printf '%b' "\\$((
($_b8 == 300 ? 200 : 0) +
($_b7 == 300 ? 100 : 0) +
($_b6 == 300 ? 40 : 0) +
($_b5 == 300 ? 20 : 0) +
($_b4 == 300 ? 10 : 0) +
($_b3 == 300 ? 4 : 0) +
($_b2 == 300 ? 2 : 0) +
($_b1 == 300 ? 1 : 0) ))"
done

**253** · 2020/09/04(金) 23:39:14.02

>>443>>444 Perl5、ﾊﾞｲﾅﾘｺｰﾄﾞ(ln)を含むデータをファイルから読み込み、変換》逆変換

undef $/; # slurp
$s = <>;

@b = map{qw(ﾋﾀ)[$_]} split'', unpack 'B*', $s;
print @b, "\n";

%h = qw(ﾋ 0 ﾀ 1);
$t = pack 'B*', join '', map{$h{$_}} @b;
print $t;

実行結果

$ od -xc Hello_world_ln.txt
0000000 6548 6c6c 206f 6f77 6c72 0a64
H e l l o w o r l d \n

$ cat Hello_world_ln.txt
Hello world

$ perl 18_443_444_ﾋﾀ.pl < Hello_world_ln.txt
ﾋﾀﾋﾋﾀﾋﾋﾋﾋﾀﾀﾋﾋﾀﾋﾀﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾀﾀﾀﾀﾋﾋﾀﾋﾋﾋﾋﾋﾋﾀﾀﾀﾋﾀﾀﾀﾋﾀﾀﾋﾀﾀﾀﾀﾋﾀﾀﾀﾋﾋﾀﾋﾋﾀﾀﾋﾀﾀﾋﾋﾋﾀﾀﾋﾋﾀﾋﾋﾋﾋﾋﾋﾀﾋﾀﾋ
Hello world

**デフォルトの名無しさん** · 2020/09/05(土) 15:41:23.97

お題

UTF-8 は以下のように、先頭ニブル・4ビットで、1～4バイト文字を判別しています。
この法則を使って、この文字列のバイト数を求めよ

あaθ💀xΩ死🄫

1バイト文字: 0000～0111: 0～7

多バイト文字の2バイト目以降
1000～1011: 8～11(8～B)

2バイト文字: 1100～1101: 12～13(C～D)
3バイト文字: 1110: 14(E)
4バイト文字: 1111: 15(F)

Unicode
https://seiai.ed.jp/sys/text/csd/cf14/c14a070.html