プログラミングのお題スレです。
【出題と回答例】
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/
プログラミングのお題スレ Part18
■ このスレッドは過去ログ倉庫に格納されています
2020/07/14(火) 13:53:46.47ID:jW5p6F/e
204デフォルトの名無しさん
2020/08/06(木) 19:23:23.77ID:nx4HEXSE >>203
ピ・タ・ゴ・ラ・スイッチ
ピ・タ・ゴ・ラ・スイッチ
205デフォルトの名無しさん
2020/08/06(木) 19:37:26.52ID:/QKQvkvR なぜ何度ツッコまれてもスレタイからずれようとするんですか？
学習できないんですか？
学習できないんですか？
206蟻人間 ◆T6xkBnTXz7B0
2020/08/06(木) 19:46:21.15ID:mzjhTFla >>205
ハードにも興味を持ってくれるといいな、と思って企画しました by 突撃商会
ハードにも興味を持ってくれるといいな、と思って企画しました by 突撃商会
207デフォルトの名無しさん
2020/08/06(木) 19:58:03.18ID:AWtnj9QL CDトレイを開閉するソフトを作りそれで餌やり器のボタンを押せ
209デフォルトの名無しさん
2020/08/06(木) 20:18:11.34ID:nx4HEXSE 【お題】正解にたどり着くようにアシストした得点を算出するプログラムを作れ
スケールは1点以上100点未満とする
スケールは1点以上100点未満とする
211デフォルトの名無しさん
2020/08/06(木) 20:37:37.85ID:sjF+gr/I クソコテ死ねよマジで
212デフォルトの名無しさん
2020/08/06(木) 20:53:50.09ID:O/aURmUk213蟻人間 ◆T6xkBnTXz7B0
2020/08/06(木) 21:07:24.02ID:mzjhTFla214蟻人間 ◆T6xkBnTXz7B0
2020/08/06(木) 21:16:15.64ID:mzjhTFla IchigoJamというのもあるみたい。
215デフォルトの名無しさん
2020/08/06(木) 21:29:05.63ID:8sSWlLgK スレチ
◆QZaw55cn4c はうせろ
◆QZaw55cn4c はうせろ
>>215
突然、どうしたのですか？
突然、どうしたのですか？
217デフォルトの名無しさん
2020/08/06(木) 22:38:17.00ID:8sSWlLgK >>216
呼んでねえよハゲ消えろ
呼んでねえよハゲ消えろ
218蟻人間 ◆T6xkBnTXz7B0
2020/08/06(木) 23:02:55.51ID:mzjhTFla お題: 点結びパズルという簡単なパズルがある。紙の上にたくさんの点があり、それぞれの点の近くに番号が書かれていて、
番号の順に点を結べば、図案が浮かび上がるというものだ。
以下の手順に従ってモノクロPNG画像(300dpi前後)として与えられた点結びパズルを自動的に解くプログラムを作れ。画像処理。
(1) OCR技術や深層学習などにより、画像上の一文字が2mm以上6mm以下のアラビア数字(複数)を読み取り、数字の位置と数字の対を返す関数を作れ。数字の30度以上の回転は考える必要はない。
(2) 点結びパズルの点は直径0.5mm以上3mm以下の黒い丸い点だと仮定して、点と数字を関連付けるアルゴリズムを考案せよ。
ただし、数字に近い点が複数ある場合は「スマートに」割り振ること。
(3) 画像に実際に線分を描画して点結びパズルを回答するプログラムを作れ。
点と数字以外の枠線やタイトルなどは印刷されていないと仮定してもよい。
番号の順に点を結べば、図案が浮かび上がるというものだ。
以下の手順に従ってモノクロPNG画像(300dpi前後)として与えられた点結びパズルを自動的に解くプログラムを作れ。画像処理。
(1) OCR技術や深層学習などにより、画像上の一文字が2mm以上6mm以下のアラビア数字(複数)を読み取り、数字の位置と数字の対を返す関数を作れ。数字の30度以上の回転は考える必要はない。
(2) 点結びパズルの点は直径0.5mm以上3mm以下の黒い丸い点だと仮定して、点と数字を関連付けるアルゴリズムを考案せよ。
ただし、数字に近い点が複数ある場合は「スマートに」割り振ること。
(3) 画像に実際に線分を描画して点結びパズルを回答するプログラムを作れ。
点と数字以外の枠線やタイトルなどは印刷されていないと仮定してもよい。
219デフォルトの名無しさん
2020/08/07(金) 00:08:41.77ID:TzYKRTqH よく、ラズパイコンテストでやってる
水槽の中の金魚に、エサをやる装置とか
水槽の中の金魚に、エサをやる装置とか
220デフォルトの名無しさん
2020/08/07(金) 11:29:33.41ID:uQ4nbdFf 債務が多い
221デフォルトの名無しさん
2020/08/07(金) 12:51:36.49ID:lb7vo/Jy お題
文字列を大文字小文字を区別せずにソートして()でグルーピングしてください
入力: D a B c d c C A E c e B b
出力: (a A) (B B b) (c c C c) (D d) (E e)
文字列を大文字小文字を区別せずにソートして()でグルーピングしてください
入力: D a B c d c C A E c e B b
出力: (a A) (B B b) (c c C c) (D d) (E e)
222デフォルトの名無しさん
2020/08/07(金) 13:43:57.69ID:uQ4nbdFf >>221 js
const inputStr = "D a B c d c C A E c e B b"
const expectedStr = "(a A) (B B b) (c c C c) (D d) (E e)"
const charVal = c => c.toUpperCase().charCodeAt()
function groupCharSort(str) {
const chars = str.split(" ")
const groups = {}
chars.forEach(c => {
const cv = charVal(c)
if (!groups[cv]) groups[cv] = []
groups[cv].push(c)
})
return Object.values(groups).sort((g1, g2) => charVal(g1[0]) - charVal(g2[0])).map(cs => `(${cs.join(" ")})`).join(" ")
}
const resultStr = groupCharSort(inputStr)
console.log("out :" + resultStr)
console.log("expect:" + expectedStr)
console.log(resultStr == expectedStr)
const inputStr = "D a B c d c C A E c e B b"
const expectedStr = "(a A) (B B b) (c c C c) (D d) (E e)"
const charVal = c => c.toUpperCase().charCodeAt()
function groupCharSort(str) {
const chars = str.split(" ")
const groups = {}
chars.forEach(c => {
const cv = charVal(c)
if (!groups[cv]) groups[cv] = []
groups[cv].push(c)
})
return Object.values(groups).sort((g1, g2) => charVal(g1[0]) - charVal(g2[0])).map(cs => `(${cs.join(" ")})`).join(" ")
}
const resultStr = groupCharSort(inputStr)
console.log("out :" + resultStr)
console.log("expect:" + expectedStr)
console.log(resultStr == expectedStr)
223デフォルトの名無しさん
2020/08/07(金) 13:48:23.69ID:uQ4nbdFf const inputStr = "D a B c d c C A E c e B b"
const expectedStr = "(a A) (B B b) (c c C c) (D d) (E e)"
const charVal = c => c.toUpperCase().charCodeAt()
function groupCharSort(str) {
const chars = str.split(" ")
const groups = []
chars.forEach(c => {
const cv = charVal(c)
if (!groups[cv]) groups[cv] = []
groups[cv].push(c)
})
return groups.filter(Boolean).map(cs => `(${cs.join(" ")})`).join(" ")
}
const resultStr = groupCharSort(inputStr)
console.log("out :" + resultStr)
console.log("expect:" + expectedStr)
console.log(resultStr == expectedStr)
sort いらなかった
const expectedStr = "(a A) (B B b) (c c C c) (D d) (E e)"
const charVal = c => c.toUpperCase().charCodeAt()
function groupCharSort(str) {
const chars = str.split(" ")
const groups = []
chars.forEach(c => {
const cv = charVal(c)
if (!groups[cv]) groups[cv] = []
groups[cv].push(c)
})
return groups.filter(Boolean).map(cs => `(${cs.join(" ")})`).join(" ")
}
const resultStr = groupCharSort(inputStr)
console.log("out :" + resultStr)
console.log("expect:" + expectedStr)
console.log(resultStr == expectedStr)
sort いらなかった
224デフォルトの名無しさん
2020/08/07(金) 14:51:48.30ID:5vmbSLbR >>221 Ruby
# その 1
def igrouping( str )
gList = {}
str.split.each{|ch|
k = ch.downcase
gList[ k ] ||= []
gList[ k ] << ch
}
gList.keys.sort.map{|k| '(' + gList[ k ].join(' ') + ')' }.join(' ')
end
instr = 'D a B c d c C A E c e B b'
puts "入力: #{instr}"
puts "出力: #{igrouping( instr )}"
# その 1
def igrouping( str )
gList = {}
str.split.each{|ch|
k = ch.downcase
gList[ k ] ||= []
gList[ k ] << ch
}
gList.keys.sort.map{|k| '(' + gList[ k ].join(' ') + ')' }.join(' ')
end
instr = 'D a B c d c C A E c e B b'
puts "入力: #{instr}"
puts "出力: #{igrouping( instr )}"
225デフォルトの名無しさん
2020/08/07(金) 14:52:06.69ID:5vmbSLbR >>221 Ruby
# その 2
def igrouping( str )
i = 0
'(' + str.split.sort_by{|x| [ x.downcase, i += 1 ] }.join(' ').gsub( /(\w) (?!\1)/i ){"#{$1}) (#{$2}"} + ')'
end
instr = 'D a B c d c C A E c e B b'
puts "入力: #{instr}"
puts "出力: #{igrouping( instr )}"
# その 2
def igrouping( str )
i = 0
'(' + str.split.sort_by{|x| [ x.downcase, i += 1 ] }.join(' ').gsub( /(\w) (?!\1)/i ){"#{$1}) (#{$2}"} + ')'
end
instr = 'D a B c d c C A E c e B b'
puts "入力: #{instr}"
puts "出力: #{igrouping( instr )}"
226デフォルトの名無しさん
2020/08/07(金) 16:23:53.54ID:uQ4nbdFf <<=って演算子ほしいな
227デフォルトの名無しさん
2020/08/07(金) 19:28:59.75ID:P4+Ga4Bm >>221 Ruby
$><<gets.split.group_by{|c| c.ord % 32}.sort.map{|a| "(#{a.last.join ' '})"}.join(' ')
# => (a A) (B B b) (c c C c) (D d) (E e)
$><<gets.split.group_by{|c| c.ord % 32}.sort.map{|a| "(#{a.last.join ' '})"}.join(' ')
# => (a A) (B B b) (c c C c) (D d) (E e)
228デフォルトの名無しさん
2020/08/08(土) 00:04:29.62ID:b55CcwAR JavaScript では、Lodash を使うけど、
やっぱり、Ruby の方が、メソッドチェーンできるから良い
Lodash ではたまに「インスタンス.メソッド」の形にならない関数がある。
関数(オブジェクト)の形式
そこで、メソッドチェーンが途切れて、配列が実体化されてしまうから、
サイズと大きいと、ヤバイ
やっぱり、Ruby の方が、メソッドチェーンできるから良い
Lodash ではたまに「インスタンス.メソッド」の形にならない関数がある。
関数(オブジェクト)の形式
そこで、メソッドチェーンが途切れて、配列が実体化されてしまうから、
サイズと大きいと、ヤバイ
229デフォルトの名無しさん
2020/08/08(土) 07:24:36.17ID:u/td9dv4 lodash破壊的変更の関数あるの地味に謎だよな
一応 lodash/fpもあるけど
一応 lodash/fpもあるけど
230デフォルトの名無しさん
2020/08/08(土) 07:26:45.92ID:u/td9dv4 いや _.chainの話か
一瞬非推奨の流れ来たときから使ってないわ
メソッドチェーン嫌いではないけど
一瞬非推奨の流れ来たときから使ってないわ
メソッドチェーン嫌いではないけど
231デフォルトの名無しさん
2020/08/08(土) 09:18:46.19ID:b55CcwAR >>221
Elixir
input_str = "D a B c d c C A E c e B b"
list = input_str
|> String.split # 文字列を空白で分割して、配列化する
|> Enum.group_by( &String.downcase/1 ) # 小文字へ変換して、グループ化する
|> Map.values # 値を取り出す
|> Enum.map( fn list -> Enum.join( list, " " ) end ) # 各要素を空白でつなげて、1つの文字列にする
|> Enum.map( fn str -> "(" <> str <> ")" end ) # 文字列を、( ) で囲む
# IO.inspect list
Enum.join( list, " " ) # 各要素を空白でつなげて、1つの文字列にする
|> IO.puts
Elixir
input_str = "D a B c d c C A E c e B b"
list = input_str
|> String.split # 文字列を空白で分割して、配列化する
|> Enum.group_by( &String.downcase/1 ) # 小文字へ変換して、グループ化する
|> Map.values # 値を取り出す
|> Enum.map( fn list -> Enum.join( list, " " ) end ) # 各要素を空白でつなげて、1つの文字列にする
|> Enum.map( fn str -> "(" <> str <> ")" end ) # 文字列を、( ) で囲む
# IO.inspect list
Enum.join( list, " " ) # 各要素を空白でつなげて、1つの文字列にする
|> IO.puts
232デフォルトの名無しさん
2020/08/08(土) 14:04:33.02ID:JvTsLjL+233デフォルトの名無しさん
2020/08/08(土) 14:58:00.03ID:gFRxrH0y234デフォルトの名無しさん
2020/08/08(土) 15:53:05.60ID:xsg1wzC9235デフォルトの名無しさん
2020/08/08(土) 16:11:32.49ID:yUCBpeXj >>232
一般論としてデータの処理と最後の文字列の組み立てを一緒にやらない方がいい
今どきPC上ならメモリーは潤沢にあるので
・グルーピングの処理してから
・各グループを文字列化
・さらにその文字列を順次出力
とした方がわかりやすいと思う
https://ideone.com/Tsio0O
一般論としてデータの処理と最後の文字列の組み立てを一緒にやらない方がいい
今どきPC上ならメモリーは潤沢にあるので
・グルーピングの処理してから
・各グループを文字列化
・さらにその文字列を順次出力
とした方がわかりやすいと思う
https://ideone.com/Tsio0O
236デフォルトの名無しさん
2020/08/08(土) 17:07:51.92ID:HH2BebFt237デフォルトの名無しさん
2020/08/08(土) 21:09:30.55ID:JvTsLjL+238デフォルトの名無しさん
2020/08/08(土) 21:20:24.22ID:bf+w2Xl6 code golfなら基本はperlで、次点がRubyじゃないですかね
239デフォルトの名無しさん
2020/08/08(土) 21:56:24.61ID:JvTsLjL+ >>238
そういうものなのね
そういうものなのね
240231
2020/08/08(土) 22:49:25.00ID:b55CcwAR 関数型・メソッドチェーンなら、Ruby・Elixir。
長く、チェーンできるから
Elixir では関数の第一引数を、前のチェーンからの戻り値として渡せる
str = "a b c"
# 文字列を空白で分割して、配列化する
IO.inspect String.split( str )
str
|> String.split
|> IO.inspect
出力は、どちらも
["a", "b", "c"]
長く、チェーンできるから
Elixir では関数の第一引数を、前のチェーンからの戻り値として渡せる
str = "a b c"
# 文字列を空白で分割して、配列化する
IO.inspect String.split( str )
str
|> String.split
|> IO.inspect
出力は、どちらも
["a", "b", "c"]
241231
2020/08/08(土) 22:54:29.83ID:b55CcwAR 基本的に、Ruby・Elixir みたいに、
メソッドチェーンで、英語のように、左から右へ読めないとダメ
Python の内包表記みたいなのは、可読性が悪い
メソッドチェーンで、英語のように、左から右へ読めないとダメ
Python の内包表記みたいなのは、可読性が悪い
242デフォルトの名無しさん
2020/08/08(土) 23:09:35.53ID:n6UBlQy6 ざっくりとした見た目しか気にしないのでパイプライン演算子と区別がつかないrubyガイジなのであったｗ
243デフォルトの名無しさん
2020/08/08(土) 23:14:07.63ID:ifN2bgU4244デフォルトの名無しさん
2020/08/08(土) 23:32:15.70ID:ifN2bgU4245デフォルトの名無しさん
2020/08/09(日) 00:17:54.90ID:/K790vfJ javaでもStream使うと意外と少なくかけるんだな
utilが充実してるな
utilが充実してるな
246デフォルトの名無しさん
2020/08/09(日) 00:41:46.15ID:uywZ9h5A247デフォルトの名無しさん
2020/08/09(日) 02:47:46.35ID:Mt0Kh35r >>221
c#
using System;
using System.Linq;
class Program
{
static void Main(string[] args)
{
var input = "D a B c d c C A E c e B b";
foreach (var itm in input.Split(" ").GroupBy(p => p.ToUpper()).OrderBy(p => p.Key))
{
Console.Write("(" + string.Join(" ", itm) + ") ");
}
}
}
c#
using System;
using System.Linq;
class Program
{
static void Main(string[] args)
{
var input = "D a B c d c C A E c e B b";
foreach (var itm in input.Split(" ").GroupBy(p => p.ToUpper()).OrderBy(p => p.Key))
{
Console.Write("(" + string.Join(" ", itm) + ") ");
}
}
}
248デフォルトの名無しさん
2020/08/09(日) 04:58:28.52ID:bQgrv4ZF249デフォルトの名無しさん
2020/08/09(日) 16:07:42.42ID:HZ7sqguG お題
文字列abcdeを右に2つ回転するとdeabcとなる
文字列abcdeを左に2つ回転するとcdeabとなる
2つの文字列を入力として受け取り
2つの文字列が一致するか、または、文字列を回転させて一致した場合はtrueを返してください
さもなくばfalseを返してください
入力: abcde deabc
出力: true
入力: abcde cdeba
出力: false
文字列abcdeを右に2つ回転するとdeabcとなる
文字列abcdeを左に2つ回転するとcdeabとなる
2つの文字列を入力として受け取り
2つの文字列が一致するか、または、文字列を回転させて一致した場合はtrueを返してください
さもなくばfalseを返してください
入力: abcde deabc
出力: true
入力: abcde cdeba
出力: false
250デフォルトの名無しさん
2020/08/09(日) 16:42:31.20ID:/K790vfJ >>249 js
const isRotateStr = (a, b) => (a + a).indexOf(b) != -1
console.log(isRotateStr("abcde", "deabc"))
// true
console.log(isRotateStr("abcde", "cdeba"))
// false
const isRotateStr = (a, b) => (a + a).indexOf(b) != -1
console.log(isRotateStr("abcde", "deabc"))
// true
console.log(isRotateStr("abcde", "cdeba"))
// false
251デフォルトの名無しさん
2020/08/09(日) 16:56:20.10ID:DzMx1xPb 問題として狙ってたかしらんけど、いきなり簡単な解法来ちゃったな。
252デフォルトの名無しさん
2020/08/09(日) 16:59:23.64ID:Uo9rXbdx aaとaaaを比較したらtrueになっちゃうね
文字サイズを最初にチェックすればいいかな？
文字サイズを最初にチェックすればいいかな？
253253
2020/08/09(日) 19:01:45.47ID:UiQUiAYf >>221 Perl5
push(@{$h{uc$_}}, $_) for qw{D a B c d c C A E c e B b};
print map{"(@{$h{$_}}) "} sort keys %h;
実行結果
~ $ perl 18_221_NCS_sort_grp.pl
(a A) (B B b) (c c C c) (D d) (E e)
push(@{$h{uc$_}}, $_) for qw{D a B c d c C A E c e B b};
print map{"(@{$h{$_}}) "} sort keys %h;
実行結果
~ $ perl 18_221_NCS_sort_grp.pl
(a A) (B B b) (c c C c) (D d) (E e)
254253
2020/08/09(日) 19:17:23.16ID:A1LNtpwx >>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
say "出力 ", "$a$a" =~ /$b/ ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
実行結果
~ $ perl 18_249_strot_cmp.pl
The signatures feature is experimental at 18_249_strot_cmp.pl line 2.
入力 abcde deabc
出力 true
入力 abcde cdeba
出力 false
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
say "出力 ", "$a$a" =~ /$b/ ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
実行結果
~ $ perl 18_249_strot_cmp.pl
The signatures feature is experimental at 18_249_strot_cmp.pl line 2.
入力 abcde deabc
出力 true
入力 abcde cdeba
出力 false
255デフォルトの名無しさん
2020/08/09(日) 20:09:27.60ID:sb6ynJ/q Jﾆｷも披露してくれよ
256デフォルトの名無しさん
2020/08/09(日) 22:00:05.82ID:BOQzPYI8257253
2020/08/09(日) 22:27:07.62ID:iNMqPGBy >>253 それだと「文字列を回転させて一致」のみならず「含まれている」場合もtrueになってしまうので修正
>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
@a = "$a$a" =~ /^(.*)($b)(.*)$/;
say "出力 ", (@a and "$a[2]$a[0]" eq $b) ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};
実行結果
~ $ perl 18_249_strot_cmp.pl
The signatures feature is experimental at 18_249_strot_cmp.pl line 2.
入力 abcde deabc
出力 true
入力 abcde cdeba
出力 false
入力 aaaaa aaa
出力 false
>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
@a = "$a$a" =~ /^(.*)($b)(.*)$/;
say "出力 ", (@a and "$a[2]$a[0]" eq $b) ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};
実行結果
~ $ perl 18_249_strot_cmp.pl
The signatures feature is experimental at 18_249_strot_cmp.pl line 2.
入力 abcde deabc
出力 true
入力 abcde cdeba
出力 false
入力 aaaaa aaa
出力 false
258デフォルトの名無しさん
2020/08/09(日) 22:40:05.17ID:/K790vfJ octave文法好みだけど結構古い言語なんだな
259253
2020/08/09(日) 23:21:31.30ID:dFp53gtH >>221 Python3
s = "D a B c d c C A E c e B b".split();
d = {}
for c in s:
u = c.upper()
if u in d: d[u] += ' ' + c
else: d[u] = c
ks = sorted(d.keys())
print(' '.join(map(lambda x: '(%s)' % d[x], ks)))
実行結果
~ $ py 18_221_NCS_sort_grp.py
(a A) (B B b) (c c C c) (D d) (E e)
s = "D a B c d c C A E c e B b".split();
d = {}
for c in s:
u = c.upper()
if u in d: d[u] += ' ' + c
else: d[u] = c
ks = sorted(d.keys())
print(' '.join(map(lambda x: '(%s)' % d[x], ks)))
実行結果
~ $ py 18_221_NCS_sort_grp.py
(a A) (B B b) (c c C c) (D d) (E e)
260デフォルトの名無しさん
2020/08/09(日) 23:56:04.43ID:DzMx1xPb Perlだとこの程度でも正規表現使わないといかんのか？
261253
2020/08/10(月) 00:02:07.64ID:5Aj+dIHX263253
2020/08/10(月) 01:07:06.98ID:mTkq56mc >>260
>>257は一致する場合に対応するようあせって書いた面があり
正規表現を使うのはやりすぎ感があったのは確かなので
顕に正規表現を使わずに書きを考えてみた。
もっとも簡素な書き方として思いついたのがsplitで三分割して
前後の余った文字列を連結したらそれも一致するかなので
>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
@a = split "$b", "$a$a", 3;
say "出力 ", ("$a[2]$a[0]" eq $b) ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};
…でもsplitも実は正規表現で分離する機能を持つので、起きていることは実は>>257と一緒なんだよね
>>257は一致する場合に対応するようあせって書いた面があり
正規表現を使うのはやりすぎ感があったのは確かなので
顕に正規表現を使わずに書きを考えてみた。
もっとも簡素な書き方として思いついたのがsplitで三分割して
前後の余った文字列を連結したらそれも一致するかなので
>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
say "入力 $a $b";
@a = split "$b", "$a$a", 3;
say "出力 ", ("$a[2]$a[0]" eq $b) ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};
…でもsplitも実は正規表現で分離する機能を持つので、起きていることは実は>>257と一緒なんだよね
264253
2020/08/10(月) 01:18:32.03ID:mTkq56mc265253
2020/08/10(月) 01:58:56.02ID:5YDTUTIu267デフォルトの名無しさん
2020/08/10(月) 05:44:26.44ID:SKFyjjt9 お題:
Brainfuck実行環境を作成し，以下のhello.bfを読み込み実行してください
入力: https://github.com/pablojorge/brainfuck/blob/master/programs/hello.bf
出力: "Hello World!"
Brainfuck実行環境を作成し，以下のhello.bfを読み込み実行してください
入力: https://github.com/pablojorge/brainfuck/blob/master/programs/hello.bf
出力: "Hello World!"
268デフォルトの名無しさん
2020/08/10(月) 08:49:19.32ID:SwBLGnEH >>267 Ruby
require 'open-uri'
str = open('https://raw.githubusercontent.com/pablojorge/brainfuck/master/programs/hello.bf').read
M = 256
i = p = s = 0
h = Hash.new(0)
m = [0] * M
while i < str.length
case str[i]
when ?+ then m[p] += 1
when ?- then m[p] -= 1
when ?[ then h[s += 1] = i
when ?] then m[p].zero? ? s -= 1 : i = h[s]
when ?> then p += 1
when ?< then p -= 1
when ?. then $><<m[p].chr
when ?, then m[p] += $<.getc.ord
end
i += 1
end
# => Hello World!
require 'open-uri'
str = open('https://raw.githubusercontent.com/pablojorge/brainfuck/master/programs/hello.bf').read
M = 256
i = p = s = 0
h = Hash.new(0)
m = [0] * M
while i < str.length
case str[i]
when ?+ then m[p] += 1
when ?- then m[p] -= 1
when ?[ then h[s += 1] = i
when ?] then m[p].zero? ? s -= 1 : i = h[s]
when ?> then p += 1
when ?< then p -= 1
when ?. then $><<m[p].chr
when ?, then m[p] += $<.getc.ord
end
i += 1
end
# => Hello World!
269デフォルトの名無しさん
2020/08/10(月) 08:49:26.47ID:OSJh6/O/270デフォルトの名無しさん
2020/08/10(月) 17:10:10.24ID:Z7zFlWuQ >>249
Kotlin
簡単なやり方は出尽くしたのであえてグルグル回すだけのIteratorを作成した。
https://paiza.io/projects/TxupVLPTStBv7o1MiTuDEQ
Kotlin
簡単なやり方は出尽くしたのであえてグルグル回すだけのIteratorを作成した。
https://paiza.io/projects/TxupVLPTStBv7o1MiTuDEQ
271デフォルトの名無しさん
2020/08/10(月) 17:10:16.38ID:SKFyjjt9272デフォルトの名無しさん
2020/08/10(月) 18:01:14.12ID:Z7zFlWuQ >>267
Kotlin
とりあえず簡単そうだったので Kotlin へのコンバータを作った(コンバータなのでKotlinのソースを出力するだけ)。
実行したい場合はその出力を Kotlin コンパイラに読ませてコンパイルしてから Java VM で動かす必要がある。
https://paiza.io/projects/q8vkgGoAei9W2gfLA4xP4Q
こちらの Linux 環境でコマンドラインの kotlinc を使ってやった時はこうやった。(BF2Kotlin.kt がコンバータ。hello.bf はダウンロードしたプログラム)
$ kotlinc BF2Kotlin.kt
$ kotlin BF2KotlinKt < hello.bf > hello.kt
$ kotlinc hello.kt
$ kotlin HelloKt
Hello World!
Kotlin
とりあえず簡単そうだったので Kotlin へのコンバータを作った(コンバータなのでKotlinのソースを出力するだけ)。
実行したい場合はその出力を Kotlin コンパイラに読ませてコンパイルしてから Java VM で動かす必要がある。
https://paiza.io/projects/q8vkgGoAei9W2gfLA4xP4Q
こちらの Linux 環境でコマンドラインの kotlinc を使ってやった時はこうやった。(BF2Kotlin.kt がコンバータ。hello.bf はダウンロードしたプログラム)
$ kotlinc BF2Kotlin.kt
$ kotlin BF2KotlinKt < hello.bf > hello.kt
$ kotlinc hello.kt
$ kotlin HelloKt
Hello World!
273デフォルトの名無しさん
2020/08/10(月) 18:43:36.36ID:TsKVv45J274デフォルトの名無しさん
2020/08/10(月) 21:10:04.86ID:EfqLUS40 >>249 Python3
def f(a, b): return len(a) == len(b) and a in b + b
def f(a, b): return len(a) == len(b) and a in b + b
275デフォルトの名無しさん
2020/08/10(月) 22:32:27.25ID:tDeKMBiv276デフォルトの名無しさん
2020/08/10(月) 23:41:40.77ID:SKFyjjt9277デフォルトの名無しさん
2020/08/10(月) 23:46:58.70ID:lJp+wmfa bfってループの入れ子できたっけ？
278デフォルトの名無しさん
2020/08/10(月) 23:47:11.22ID:SwBLGnEH >>277
できる
できる
279272
2020/08/11(火) 01:47:49.41ID:RwCZynCZ280デフォルトの名無しさん
2020/08/11(火) 01:50:50.24ID:RwCZynCZ281デフォルトの名無しさん
2020/08/11(火) 07:40:40.35ID:RSsrE9PW282デフォルトの名無しさん
2020/08/11(火) 14:40:27.33ID:psN1NwFJ こんなに暑いと座禅プログラムで涼みたい。
283デフォルトの名無しさん
2020/08/12(水) 10:55:20.81ID:WiVroiaz 警策を上から振り下ろす動作の機械を作り、そこにマイコンを接続。更に行ったり
来たりするルンバのようなものの上にそれを乗せ、そこにもマイコンを接続。
そのマイコンのコントロールプログラムを作成。
来たりするルンバのようなものの上にそれを乗せ、そこにもマイコンを接続。
そのマイコンのコントロールプログラムを作成。
284デフォルトの名無しさん
2020/08/12(水) 11:07:50.98ID:WiVroiaz285デフォルトの名無しさん
2020/08/12(水) 16:50:07.72ID:xjprAYba 令和のコペルニクス
https://youtu.be/7DbdPKWhrpY
https://youtu.be/7DbdPKWhrpY
286デフォルトの名無しさん
2020/08/12(水) 19:58:36.03ID:j5y8ZKQl お題
Brainfuckのの'+','-','.'の 3つの命令のみで
特定の文字列を表示するBrainfucの
ソースコードを生成するプログラム。
Brainfuckのの'+','-','.'の 3つの命令のみで
特定の文字列を表示するBrainfucの
ソースコードを生成するプログラム。
287デフォルトの名無しさん
2020/08/12(水) 20:07:13.01ID:kGuev0jH >>286 Ruby
puts "Hello, World!\n".codepoints.unshift(0).each_cons(2).map{|a, b| '%s.' % ((b > a ? ?+ : ?-) * (b - a).abs)}*''
# =>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+++++++++++++++++++++++++++++.+++++++..+++.[略]
puts "Hello, World!\n".codepoints.unshift(0).each_cons(2).map{|a, b| '%s.' % ((b > a ? ?+ : ?-) * (b - a).abs)}*''
# =>
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+++++++++++++++++++++++++++++.+++++++..+++.[略]
288デフォルトの名無しさん
2020/08/12(水) 23:55:21.87ID:WiVroiaz 差分出すっていうと ADPCM の圧縮を思い出すな。
289デフォルトの名無しさん
2020/08/13(木) 01:08:54.66ID:TUx4JMNp >>286
Perl5
プログラムの構造は >>287 と同じだがワンライナー。
行単位で標準入力から入力して標準出力に出力する。入力の最後の改行は削除している。行ごとに直前の文字は0にリセットしている。
見易くするために '.' の後には改行を出力している。
以下は Linux のシェルのコマンドラインで実行して abc と Hello, world. を入力した時のコピペ。
$ perl -ne 'BEGIN{$o=0}chomp;for(split //){$c=ord($_);print((($o < $c ? "+" : "-") x abs($o - $c)) . ".\n");$o=$c}$o=0'
abc
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+.
+.
Hello, world.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+++++++++++++++++++++++++++++.
+++++++.
.
+++.
-------------------------------------------------------------------.
------------.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
--------.
+++.
------.
--------.
------------------------------------------------------.
$
Perl5
プログラムの構造は >>287 と同じだがワンライナー。
行単位で標準入力から入力して標準出力に出力する。入力の最後の改行は削除している。行ごとに直前の文字は0にリセットしている。
見易くするために '.' の後には改行を出力している。
以下は Linux のシェルのコマンドラインで実行して abc と Hello, world. を入力した時のコピペ。
$ perl -ne 'BEGIN{$o=0}chomp;for(split //){$c=ord($_);print((($o < $c ? "+" : "-") x abs($o - $c)) . ".\n");$o=$c}$o=0'
abc
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+.
+.
Hello, world.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
+++++++++++++++++++++++++++++.
+++++++.
.
+++.
-------------------------------------------------------------------.
------------.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.
--------.
+++.
------.
--------.
------------------------------------------------------.
$
290デフォルトの名無しさん
2020/08/13(木) 01:49:54.11ID:CZu90IWX >>286 Ruby
"Hello World!\n".codepoints.inject(''){|r,c| r << '+' * c + '.[-]' }
"Hello World!\n".codepoints.inject(''){|r,c| r << '+' * c + '.[-]' }
291デフォルトの名無しさん
2020/08/13(木) 03:32:09.93ID:CZu90IWX >>286 Ruby
"Hello World!\n".codepoints.map{|c| '+' * c + '.' }.join( '[-]' )
"Hello World!\n".codepoints.map{|c| '+' * c + '.' }.join( '[-]' )
292デフォルトの名無しさん
2020/08/13(木) 05:51:07.18ID:CZu90IWX293デフォルトの名無しさん
2020/08/13(木) 06:48:39.25ID:9ZM4Lmsz294デフォルトの名無しさん
2020/08/13(木) 12:37:03.85ID:8zEuDtsy なるほどbrainfuckでは[-]で現在指してるメモリの値を0クリアできるのか
295デフォルトの名無しさん
2020/08/14(金) 01:20:11.50ID:CuxcYYZ5 お題：変数a, b, cを32ビット符号付き整数の最大値で初期化、または代入せよ。
octave
https://ideone.com/62dSzC
ada95
https://ideone.com/26IGLZ
octave
https://ideone.com/62dSzC
ada95
https://ideone.com/26IGLZ
296デフォルトの名無しさん
2020/08/14(金) 03:17:07.09ID:cCFmHkiX >>295 Ruby
# 初期化だけ
a = b = c = 2**31 - 1
# 初期化して表示
p *(a,b,c = [2**31-1] * 3) #=> 2147483647\n2147483647\n2147483647\n
# 初期化だけ
a = b = c = 2**31 - 1
# 初期化して表示
p *(a,b,c = [2**31-1] * 3) #=> 2147483647\n2147483647\n2147483647\n
297デフォルトの名無しさん
2020/08/14(金) 07:01:38.27ID:cCFmHkiX >>295 Ruby
お題とずれるけど INT32_MAX, INT32_MIN を普通の演算以外で作ってみた
# 定数 0,1 から INT32_MAX, INT32_MIN
[~0].pack('l').unpack('L').first >> 1 #=> 2147483647
[~0].pack('l').unpack('N').first >> 1 #=> -2147483648
# 定数 1 から INT32_MAX, INT32_MIN
[~1].pack('l<').unpack('b*').pack('B*').unpack('l>').first #=> 2147483647
[1].pack('l<').unpack('b*').pack('B*').unpack('l>').first #=> -2147483648
お題とずれるけど INT32_MAX, INT32_MIN を普通の演算以外で作ってみた
# 定数 0,1 から INT32_MAX, INT32_MIN
[~0].pack('l').unpack('L').first >> 1 #=> 2147483647
[~0].pack('l').unpack('N').first >> 1 #=> -2147483648
# 定数 1 から INT32_MAX, INT32_MIN
[~1].pack('l<').unpack('b*').pack('B*').unpack('l>').first #=> 2147483647
[1].pack('l<').unpack('b*').pack('B*').unpack('l>').first #=> -2147483648
298デフォルトの名無しさん
2020/08/14(金) 08:01:01.07ID:sgFs/qSh299デフォルトの名無しさん
2020/08/14(金) 08:17:19.00ID:jifd8sPx300デフォルトの名無しさん
2020/08/14(金) 08:18:37.41ID:jifd8sPx あ maxとminが逆だった
301デフォルトの名無しさん
2020/08/14(金) 08:20:39.60ID:jifd8sPx しかもお題と関係ない ｽﾏｿ
302デフォルトの名無しさん
2020/08/14(金) 08:21:04.21ID:hpI++Bi7303デフォルトの名無しさん
2020/08/14(金) 08:38:19.44ID:jifd8sPx >>295 C++(訂正)
#include <iostream>
#include <tuple>
int main() {
int32_t max = ~(1 << 31);
const auto [a, b, c] = [&]() { return std::tie(max, max, max); }();
std::cout << a << std::endl;
std::cout << b << std::endl;
std::cout << c << std::endl;
}
#include <iostream>
#include <tuple>
int main() {
int32_t max = ~(1 << 31);
const auto [a, b, c] = [&]() { return std::tie(max, max, max); }();
std::cout << a << std::endl;
std::cout << b << std::endl;
std::cout << c << std::endl;
}
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 高市首相答弁を“引き出した”立民・岡田克也氏が改めて説明「なぜ慎重な答弁をされなかったのか。非常に残念に思っている」 ★2 [ぐれ★]
- 【速報】中国、水産物輸入停止と通達 「処理水」理由、日本政府へ ★7 [おっさん友の会★]
- 【次の一手】台湾問題で小林よしのり氏が私見「まさに戦争前夜」「ただちに徴兵制を敷いて、高市支持者を最前線へ」… [BFU★]
- 中国側が首相答弁の撤回要求、日本側拒否★7 [夜のけいちゃん★]
- 「高市人気」どこに？ 自民候補が福島市長選で大敗、葛飾区議選でも苦戦 衆院早期解散論に冷や水 [１ゲットロボ★]
- 高市首相答弁を“引き出した”立民・岡田克也氏が改めて説明「なぜ慎重な答弁をされなかったのか。非常に残念に思っている」 ★3 [ぐれ★]
- 日本行きの航空便が50万件キャンセル。日本人「中国依存度が異常に高かったからちょうどいい😏」 [441660812]
- 日本人、ついに気づく「あれ、日本が対中国で取れる対抗措置ってなくない…？」 [931948549]
- 中国「水産物輸入停止は高市首相の発言が理由」 [256556981]
- 中国｢次に禁止してほしいものを教えて｣ [358382861]
- 【号外】中国外務省、高市首相が台湾関連の発言を撤回しなければ「断固たる対抗措置」を取らざるを得ないと述べた [115996789]
- 【悲報】高市早苗『嫌ああああああああああああぁぁぁぁぁっーーッッ！！私が何したって言うのよぉぉぉぉーッッ！！』 [527893826]