プログラミングのお題スレ 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/05(水) 02:29:32.18

>>175
aが2とか4だったらどうなるかを紙にでも書いて考えればいずれわかると思う。

**デフォルトの名無しさん** · 2020/08/05(水) 02:55:46.54

>>184 Ruby
def change( coin )
sum = coin.split(/[^\d]+/)[1..].inject(0){|r,c| r + c.to_i }
ret = ''
[500,100,50,10,5,1].each{|c|
next unless sum >= c
r, sum = sum.divmod( c )
ret << "(#{c})" * r
}
ret
end

[ '(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)(1)',
'(5)(50)(5)(1)(50)(5)(10)(1)(50)(1)(10)(10)' ].each{|coin|
puts "入力: #{coin}"
puts "出力: #{change( coin ) }\n\n"
}

**デフォルトの名無しさん** · 2020/08/05(水) 11:37:38.85

File "C:\Users\NEC-PCuser\.spyder-py3\temp.py", line 23, in <module>
my_data = genfromtxt('SingleECG.csv')

File "C:\Users\NEC-PCuser\anaconda3\lib\site-packages\numpy\lib\npyio.py", line 1772, in genfromtxt
fid = np.lib._datasource.open(fname, 'rt', encoding=encoding)

File "C:\Users\NEC-PCuser\anaconda3\lib\site-packages\numpy\lib\_datasource.py", line 269, in open
return ds.open(path, mode, encoding=encoding, newline=newline)

File "C:\Users\NEC-PCuser\anaconda3\lib\site-packages\numpy\lib\_datasource.py", line 623, in open
raise IOError("%s not found." % path)

グラフをプロットしたらこのエラーが出ました。対処法を教えてください

**デフォルトの名無しさん** · 2020/08/05(水) 12:05:51.48

斬新なお題だなNEC-PCuserさん

**デフォルトの名無しさん** · 2020/08/05(水) 12:16:18.65

>>188<対処法を教えるお題
一行目と最後の行IOError("%s not found." % path) から
File "C:\Users\NEC-PCuser\.spyder-py3\temp.py"
のパスが間違えていると思われるので
temp.pyを添付するか確認するように進言します

**デフォルトの名無しさん** · 2020/08/05(水) 14:35:10.99

心電図装置に繋がってるデバイスが機能停止したんだろ

**デフォルトの名無しさん** · 2020/08/05(水) 15:30:05.18

>>184
Kotlin
https://paiza.io/projects/cVm9G2FkQCosaGf9_fQz-Q

最初は割り算したり余り出したりしてやろうと思ったんだけど、よく考えたらこの場合はその計算は無駄な感じがしたので合計から引けたらその貨幣を出すのを繰り返すようにした。

**デフォルトの名無しさん** · 2020/08/05(水) 16:44:00.29

ふむ。コイン切れの対処もし易いな。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/05(水) 17:59:02.96

お題: コイにえさをやるプログラム「feed」がある。一時間ごとにfeedを実行するプログラムを書け。ただし、ビジーウェイトはしてはならない。

ダミーのfeedは、次のようなプログラムとする:

- 現在日時と「えさをやりました。」を出力する。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/05(水) 18:08:26.66

>>194 C++/Win32
#include <windows.h>
int main(void) {
for (;;) {
Sleep(60 * 60 * 1000);
ShellExecuteA(NULL, NULL, "feed.exe", NULL, NULL, SW_SHOWNORMAL);
}
}

// feed.cpp
#include <windows.h>
#include <stdio.h>
int main(void)
{
SYSTEMTIME st;
GetLocalTime(&st);
printf("%04d.%02d.%02d %02d:%02d:%02d えさをやりました。\n",
st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond);
}

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

は、はやい・・・

**デフォルトの名無しさん** · 2020/08/05(水) 20:19:52.45

>>194 Ruby (Windows)
# feed_ignition.rb
loop do
system( 'start "" feed.rb' )
sleep 60*60
end

# feed.rb
puts "#{Time.new.strftime('%Y/%m/%d %T')} えさをやりました。"
sleep 3 # 表示確認用

**デフォルトの名無しさん** · 2020/08/05(水) 23:41:13.11

>>194
Linux 等の UNIX系OS だったら普通なら crond が動いているので crontab 設定すると楽だ。
(Windows の場合はタスクの設定で似たような事ができる)。

例えばこのようにすると毎時0分に feed コマンドが実行される。

0 * * * * feed

ただ問題はこのままだと標準出力がリダイレクトされていないのでその出力がcrondからメールで送られて来る事になる。
(見たい場合は mail コマンドを使って見る)。

コマンドラインから直接やるとしたら watch コマンドというのもある。これは実行するたびに出力が変化する
ようなコマンドを定期的に動かしてその出力を画面上に表示するためのコマンドだが毎回出力が同じでも
あるいは何も出力しなかったとしても問題はない。1時間ごとに動かすならこうなる。

watch -n 3600 feed

もっと単純にシェルでループさせて実現する方法もある。(これだとようやっとプログラムっぽい見た目になる)

sh -c 'while : ; do feed ; sleep 3600 ; done'

feed コマンドについてはシェルスクリプトなら例えばこうしておけば良い。

#!/bin/sh
echo 'えさをやりました。'

**デフォルトの名無しさん** · 2020/08/05(水) 23:51:48.40

>>198はfeedで現在の日付を出すのを忘れた。

日付付けるなら例えばこうする。

#!/bin/sh
echo `date` 'えさをやりました。'

date コマンドに任せてしまってこんな風にもできる。(日時は YYYY-MM-DD hh:mm:ss の形式で出る)。

#!/bin/sh
date '+%F %T えさをやりました。'

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 18:50:53.87

お題: 現実世界でコイにえさをやるプログラム。

できるのか？

**デフォルトの名無しさん** · 2020/08/06(木) 19:02:17.87

>>200
始めからPLCのプログラム限定って書け>>194

**デフォルトの名無しさん** · 2020/08/06(木) 19:06:41.72

>>200
プログラムそのものは出力装置に繋がるビットをONにするとかを定期的にやれば良いだけなのでは?
で、ONになったらリレーで餌やり器のスイッチが入ってウイーンとかいって餌が一定量水槽に入る。

ていうか、全部ハードウェアだけででできないか？タイマーICってあったよね確か。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 19:21:15.27

ハードウェアだとソフトウェア制御できない。成長を細かく制御したい。
普通のPCから安価で制御する方法はないのだろうか。
ニシキゴイを20匹ほど飼いたいのだが。

**デフォルトの名無しさん** · 2020/08/06(木) 19:23:23.77

>>203
ピ・タ・ゴ・ラ・スイッチ

**デフォルトの名無しさん** · 2020/08/06(木) 19:37:26.52

なぜ何度ツッコまれてもスレタイからずれようとするんですか？
学習できないんですか？

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 19:46:21.15

>>205
ハードにも興味を持ってくれるといいな、と思って企画しました by 突撃商会

**デフォルトの名無しさん** · 2020/08/06(木) 19:58:03.18

CDトレイを開閉するソフトを作りそれで餌やり器のボタンを押せ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 20:01:30.80

>>207
正解。次のお題お願いします。

**デフォルトの名無しさん** · 2020/08/06(木) 20:18:11.34

【お題】正解にたどり着くようにアシストした得点を算出するプログラムを作れ
スケールは1点以上100点未満とする

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 20:28:14.67

>>209
それは人間しかできないんで内科医？

**デフォルトの名無しさん** · 2020/08/06(木) 20:37:37.85

クソコテ死ねよマジで

**デフォルトの名無しさん** · 2020/08/06(木) 20:53:50.09

>>203
その手の目的には Raspberry Pi がおすすめです
最近流行っているから多くのノウハウが容易に見つかりますよ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 21:07:24.02

>>212
ありがとうございます。使えそうなハードでかなりお買い得ですね。

三菱やパナソニックは、、、破壊的イノベーションができない連中か。。。

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 21:16:15.64

IchigoJamというのもあるみたい。

**デフォルトの名無しさん** · 2020/08/06(木) 21:29:05.63

スレチ
◆QZaw55cn4c はうせろ

◆QZaw55cn4c · 2020/08/06(木) 22:26:16.70

>>215
突然、どうしたのですか？

**デフォルトの名無しさん** · 2020/08/06(木) 22:38:17.00

>>216
呼んでねえよハゲ消えろ

**蟻人間** ◆T6xkBnTXz7B0 · 2020/08/06(木) 23:02:55.51

お題: 点結びパズルという簡単なパズルがある。紙の上にたくさんの点があり、それぞれの点の近くに番号が書かれていて、
番号の順に点を結べば、図案が浮かび上がるというものだ。
以下の手順に従ってモノクロPNG画像(300dpi前後)として与えられた点結びパズルを自動的に解くプログラムを作れ。画像処理。

(1) OCR技術や深層学習などにより、画像上の一文字が2mm以上6mm以下のアラビア数字(複数)を読み取り、数字の位置と数字の対を返す関数を作れ。数字の30度以上の回転は考える必要はない。
(2) 点結びパズルの点は直径0.5mm以上3mm以下の黒い丸い点だと仮定して、点と数字を関連付けるアルゴリズムを考案せよ。
ただし、数字に近い点が複数ある場合は「スマートに」割り振ること。
(3) 画像に実際に線分を描画して点結びパズルを回答するプログラムを作れ。
点と数字以外の枠線やタイトルなどは印刷されていないと仮定してもよい。

**デフォルトの名無しさん** · 2020/08/07(金) 00:08:41.77

よく、ラズパイコンテストでやってる

水槽の中の金魚に、エサをやる装置とか

**デフォルトの名無しさん** · 2020/08/07(金) 11:29:33.41

債務が多い

**デフォルトの名無しさん** · 2020/08/07(金) 12:51:36.49

お題
文字列を大文字小文字を区別せずにソートして()でグルーピングしてください

入力: 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)

**デフォルトの名無しさん** · 2020/08/07(金) 13:43:57.69

>>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)

**デフォルトの名無しさん** · 2020/08/07(金) 13:48:23.69

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 いらなかった

**デフォルトの名無しさん** · 2020/08/07(金) 14:51:48.30

>>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 )}"

**デフォルトの名無しさん** · 2020/08/07(金) 14:52:06.69

>>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 )}"

**デフォルトの名無しさん** · 2020/08/07(金) 16:23:53.54

<<=って演算子ほしいな

**デフォルトの名無しさん** · 2020/08/07(金) 19:28:59.75

>>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)

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

JavaScript では、Lodash を使うけど、
やっぱり、Ruby の方が、メソッドチェーンできるから良い

Lodash ではたまに「インスタンス.メソッド」の形にならない関数がある。
関数(オブジェクト)の形式

そこで、メソッドチェーンが途切れて、配列が実体化されてしまうから、
サイズと大きいと、ヤバイ

**デフォルトの名無しさん** · 2020/08/08(土) 07:24:36.17

lodash破壊的変更の関数あるの地味に謎だよな
一応 lodash/fpもあるけど

**デフォルトの名無しさん** · 2020/08/08(土) 07:26:45.92

いや _.chainの話か
一瞬非推奨の流れ来たときから使ってないわ
メソッドチェーン嫌いではないけど

**デフォルトの名無しさん** · 2020/08/08(土) 09:18:46.19

>>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

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

>>221
Python3
https://ideone.com/6VvEbi

全然短くならなかったんだけど皆どういう脳みそしてるの

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

>>221
perl

$input = "D a B c d c C A E c e B b";
map{push @{$h{uc $_}}, $_}(split / /, $input);
print map{map{"(".(join" ", @$_).")"}$h{$_}} sort{uc $a cmp uc $b} keys %h;

>>232
オブ脳ならぬラムダ脳なんだろうなぁ
同値でグループ化、代表元でソート、出力、これを関数でやってる

それかワンライナーへの偏執的な愛

**デフォルトの名無しさん** · 2020/08/08(土) 15:53:05.60

>>221 Ruby

gets.split.group_by(&:upcase).sort.map{|_,v|$><<"(#{v*' '}) "}

**デフォルトの名無しさん** · 2020/08/08(土) 16:11:32.49

>>232
一般論としてデータの処理と最後の文字列の組み立てを一緒にやらない方がいい
今どきPC上ならメモリーは潤沢にあるので
・グルーピングの処理してから
・各グループを文字列化
・さらにその文字列を順次出力
とした方がわかりやすいと思う
https://ideone.com/Tsio0O

**デフォルトの名無しさん** · 2020/08/08(土) 17:07:51.92

>>232
Pythonだとどうしても短くはならないな。
https://ideone.com/iFc6eL
groupbyのところは、defaultdictで書く方法もあるけど大差なし。

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

>>233
Rubyの人もワンライナーだな
Rubyってショートコーディングに向いてるのかな？

>>235,232
なるほど

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

code golfなら基本はperlで、次点がRubyじゃないですかね

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

>>238
そういうものなのね

**231** · 2020/08/08(土) 22:49:25.00

関数型・メソッドチェーンなら、Ruby・Elixir。
長く、チェーンできるから

Elixir では関数の第一引数を、前のチェーンからの戻り値として渡せる

str = "a b c"

# 文字列を空白で分割して、配列化する
IO.inspect String.split( str )

str
|> String.split
|> IO.inspect

出力は、どちらも
["a", "b", "c"]

**231** · 2020/08/08(土) 22:54:29.83

基本的に、Ruby・Elixir みたいに、
メソッドチェーンで、英語のように、左から右へ読めないとダメ

Python の内包表記みたいなのは、可読性が悪い

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

ざっくりとした見た目しか気にしないのでパイプライン演算子と区別がつかないrubyガイジなのであったｗ

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

>>184
Java
https://paiza.io/projects/__QcFHuBny33chXSMMTA4Q

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

>>221
Java
https://paiza.io/projects/20JVV_t6hmPUha0B9AuKOA

**デフォルトの名無しさん** · 2020/08/09(日) 00:17:54.90

javaでもStream使うと意外と少なくかけるんだな
utilが充実してるな

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

>>184
Python3
https://ideone.com/1aordC

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

>>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) + ") ");
}
}
}

**デフォルトの名無しさん** · 2020/08/09(日) 04:58:28.52

>>221
Kotlin
https://paiza.io/projects/zR3XGW4DaUAMXfqNq1oZ8A

**デフォルトの名無しさん** · 2020/08/09(日) 16:07:42.42

お題
文字列abcdeを右に2つ回転するとdeabcとなる
文字列abcdeを左に2つ回転するとcdeabとなる

2つの文字列を入力として受け取り
2つの文字列が一致するか、または、文字列を回転させて一致した場合はtrueを返してください
さもなくばfalseを返してください

入力: abcde deabc
出力: true

入力: abcde cdeba
出力: false

**デフォルトの名無しさん** · 2020/08/09(日) 16:42:31.20

>>249 js

const isRotateStr = (a, b) => (a + a).indexOf(b) != -1

console.log(isRotateStr("abcde", "deabc"))
// true

console.log(isRotateStr("abcde", "cdeba"))
// false

**デフォルトの名無しさん** · 2020/08/09(日) 16:56:20.10

問題として狙ってたかしらんけど、いきなり簡単な解法来ちゃったな。

**デフォルトの名無しさん** · 2020/08/09(日) 16:59:23.64

aaとaaaを比較したらtrueになっちゃうね
文字サイズを最初にチェックすればいいかな？

**253** · 2020/08/09(日) 19:01:45.47

>>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)

**253** · 2020/08/09(日) 19:17:23.16

>>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

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

Jﾆｷも披露してくれよ

**デフォルトの名無しさん** · 2020/08/09(日) 22:00:05.82

>>221 octave
https://ideone.com/qHkxnH

>>249 octave
https://ideone.com/oKqnrA

**253** · 2020/08/09(日) 22:27:07.62

>>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

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

octave文法好みだけど結構古い言語なんだな

**253** · 2020/08/09(日) 23:21:31.30

>>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)

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

Perlだとこの程度でも正規表現使わないといかんのか？

**253** · 2020/08/10(月) 00:02:07.64

>>259 を少し簡略化

>>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()
　　d[u] = d[u]+' '+c if u in d else c
print(' '.join(map(lambda x: '(%s)' % d[x], sorted(d.keys()) )))

**253** · 2020/08/10(月) 00:03:02.27

>>260
substrとかでも書ける

**253** · 2020/08/10(月) 01:07:06.98

>>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と一緒なんだよね

**253** · 2020/08/10(月) 01:18:32.03

>>263 ｺﾞﾒﾝ、$a[2]$a[0]はbug、訂正

>>249 Perl5
use feature qw{signatures say};
sub strot_cmp($a, $b) {
　say "入力 $a $b";
　@a = split $b, "$a$a", 3;
　say "出力 ", ("$a[1]$a[0]") eq $b ? 'true' : 'false';
}
strot_cmp qw{abcde deabc};
strot_cmp qw{abcde cdeba};
strot_cmp qw{aaaaa aaa};

**253** · 2020/08/10(月) 01:58:56.02

>>264 ｺﾞﾒﾝ
× @a = split $b, "$a$a", 3;
○ @a = split $b, "$a$a", 2;

◆QZaw55cn4c · 2020/08/10(月) 02:53:12.35

>>249 C
https://mevius.5ch.net/test/read.cgi/tech/1434079972/68

**デフォルトの名無しさん** · 2020/08/10(月) 05:44:26.44

お題:
Brainfuck実行環境を作成し，以下のhello.bfを読み込み実行してください

入力: https://github.com/pablojorge/brainfuck/blob/master/programs/hello.bf
出力: "Hello World!"

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

>>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!

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

>>267 Ruby
https://ideone.com/A0JIsc

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

>>249
Kotlin

簡単なやり方は出尽くしたのであえてグルグル回すだけのIteratorを作成した。

https://paiza.io/projects/TxupVLPTStBv7o1MiTuDEQ

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

>>267 C++
https://ideone.com/Lpmngq

**デフォルトの名無しさん** · 2020/08/10(月) 18:01:14.12

>>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!