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

**デフォルトの名無しさん** · 2021/06/19(土) 00:02:57.84

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

【出題と回答例】
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/

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

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

**デフォルトの名無しさん** · 2022/07/03(日) 15:38:27.96

ハズレ上司感

**デフォルトの名無しさん** · 2022/07/03(日) 15:41:49.46

>>570 ocaml
https://ideone.com/j9z2um

**デフォルトの名無しさん** · 2022/07/03(日) 16:15:01.49

>>600
めんどくせ～な～
お前やれよ

**デフォルトの名無しさん** · 2022/07/03(日) 16:24:52.83

>>600
version 1.0.5

int: comma_digit | normal_digit
float: ( comma_digit | normal_digit ) '.' digit_09+ | '.' digit_09+
comma_digit: digit_123 { ',' digit_3 }*
normal_digit: digit_19 digit_09*
digit_3: digit_09 digit_09 digit_09
digit_123: digit_19 digit_09? digit_09?
digit_19: [1-9]
digit_09: [0-9]

ていうか1234,567にはならんはずだぞ

**デフォルトの名無しさん** · 2022/07/03(日) 16:30:18.21

>>600
version 1.0.6

int: comma_digit | normal_digit
float: ( comma_digit | normal_digit ) '.' digit_09+ | '.' digit_09+
comma_digit: digit_123 { ',' digit_3 }*
normal_digit: ( digit_19 digit_09+ ) | digit_09
digit_3: digit_09 digit_09 digit_09
digit_123: digit_19 digit_09? digit_09?
digit_19: [1-9]
digit_09: [0-9]

おら！完璧だろ！

**デフォルトの名無しさん** · 2022/07/03(日) 17:25:11.12

>>604
> ていうか1234,567にはならんはずだぞ
しれっと変えといてさすがにそれは恥ずかしいな
>>598> comma_digit: digit_123 { ( ','? digit_3 ) }*
>> 604 > comma_digit: digit_123 { ',' digit_3 }*

>>605
まあ、よしとしてやろう

**デフォルトの名無しさん** · 2022/07/03(日) 20:20:25.60

問題を解かずに出題の形式美に必死になるなんて、このスレ的にどうなのよ？

**蟻人間** ◆T6xkBnTXz7B0 · 2022/07/03(日) 21:46:41.57

char buf[64];
fgets(buf, 64, stdin);
char *endptr;
strtol(buf, &endptr, 10);
if (*endptr == 0) {
puts("INT");
return;
}
strtod(buf, &endptr);
if (*endptr == 0) {
puts("FLOAT");
return;
}
puts("INVALID");

**デフォルトの名無しさん** · 2022/07/04(月) 22:09:22.65

>>570 dart
https://ideone.com/hT8xrN

**デフォルトの名無しさん** · 2022/07/08(金) 20:02:47.21

お題
非負整数xが16進数表記で与えられる。xのビットu～lの範囲を逆順にした値を出力せよ。

[入力]
x u l

[例]
0x80 7 0
=> 0x1 (8bit全体をreverse)

0xABCD 11 4
=> 0xA3DD (真ん中8bitをreverse, 0xBC=0b10111100 -> 0b00111101=0x3D)

0x2 99 1
=> 0x8000000000000000000000000 (2の99乗)

**デフォルトの名無しさん** · 2022/07/08(金) 22:06:04.39

>>610 Ruby

f = -> (*a) {_, e, s = a.map(&:to_i); '0x%X' % a[0].hex.digits(2).concat(Array.new(e, 0)).tap{_1[s..e] = _1[s..e].reverse}.reverse.reduce{|s, i| 2 * s + i}}

['0x80 7 0', '0xABCD 11 4', '0x2 99 1'].each{puts '%s -> %s' % [_1, f[*_1.split]]}

# =>
0x80 7 0 -> 0x1
0xABCD 11 4 -> 0xA3DD
0x2 99 1 -> 0x8000000000000000000000000

**デフォルトの名無しさん** · 2022/07/09(土) 09:28:21.31

>>610 octave
https://ideone.com/4MacE3

**デフォルトの名無しさん** · 2022/07/09(土) 21:45:11.70

>>610
Kotlin
https://paiza.io/projects/hUR6DylxGsrJBWKI-gmaKg

BigInteger 使ったので、ビット数がかなり多くても大丈夫。

**デフォルトの名無しさん** · 2022/07/24(日) 20:03:09.74

あげ

**デフォルトの名無しさん** · 2022/07/26(火) 20:19:27.06

お題：数字をミラーリングせよ

入力 < 123
出力 > 123321

reverse系メソッドを使わなかったら加点とする

**デフォルトの名無しさん** · 2022/07/26(火) 20:33:23.78

>>615 Ruby
$><<(a=gets.scan /./)*'';$><<$a while$a=a.pop

-*- input -*-
123

-*- output -*-
123321

**デフォルトの名無しさん** · 2022/07/26(火) 22:30:32.74

>>615
Java

static String mirror(String src) {
　var dest = new char[src.length() * 2];
　var a = src.toCharArray();
　for (var i = 0; i < a.length; i++) {
　　dest[i] = a[i];
　　dest[dest.length - 1 - i] = a[i];
　}
　return new String(dest);
}

**アリ人間** ◆T6xkBnTXz7B0 · 2022/07/26(火) 22:36:21.87

>>615
派生お題: 文字列処理を使わずに与えられた整数を回文にせよ。

**デフォルトの名無しさん** · 2022/07/26(火) 23:38:05.85

>>615 octave
https://ideone.com/Aa9KII
f = @(a) a([1:end end:-1:1]);
f('123')

**デフォルトの名無しさん** · 2022/07/26(火) 23:41:29.56

魔法の計算式とか無いん？

**デフォルトの名無しさん** · 2022/07/27(水) 00:03:13.42

俺も考えてみたけど調べても回分数のシグマ使わない一般式は無いみたいだな

**デフォルトの名無しさん** · 2022/07/27(水) 00:09:31.00

>>615 JavaScript
const mirror = (n, c, ...args) => c === null ? (answer => 0 <= n && answer <= Number.MAX_SAFE_INTEGER ? answer : RangeError(`${n} is invalid.`))(args.reduce((s, d) => s * 10 + d, n)) : c == undefined ? mirror(Number.parseInt(n), Number.parseInt(n), ...args) : mirror(n, c < 10 ? null : Math.floor(c / 10), ...args, c % 10);

// test
for (const [n] of [[-1, 'x'], [0, 'o'], [1, 'o'], [12345678, 'o'], [123456789, 'x'], [123.456, 'o (123321)']]) {
const answer = mirror(n);
console[answer instanceof RangeError ? 'error' : 'log'](answer);
}

**デフォルトの名無しさん** · 2022/07/27(水) 01:46:36.04

octave綺麗

96 · 2022/08/02(火) 01:11:31.65

>>615 Perl5

use feature qw{say signatures}; no warnings 'experimental';

sub f($i, @a) { $i and @a ? (f(@a), $i) : $i }

@a = split'',123;
say @a, f(@a);

実行結果
~ $ perl 20_615_mirror.pl
123321

96 · 2022/08/02(火) 01:20:34.60

>>615 Perl5 （リスト処理版)

@a = split '', 123;
print @a, map{@a[$#a - $_]} 0..$#a;

実行結果
~ $ perl 20_615_mirror_list.pl
123321

**デフォルトの名無しさん** · 2022/08/02(火) 22:22:16.97

>>615 ocaml
https://ideone.com/FFhxw9
let f s =
let csc c s = Char.escaped c ^ s ^ Char.escaped c in
let rec aux t = function 0 -> t | n -> aux (csc s.[n - 1] t) (n - 1)
in aux "" @@ String.length s
let () = print_endline @@ f "123"

**デフォルトの名無しさん** · 2022/08/02(火) 23:32:00.13

>>615
Kotlin

https://paiza.io/projects/2Pe625DoTzToywf3zB2lvA

わざわざ Iterator を実装して実現。

**デフォルトの名無しさん** · 2022/08/03(水) 00:34:26.60

>>615 ocaml
https://ideone.com/6YqGis
let f s = s ^ String.init (String.length s) (fun i -> s.[String.length s - 1 - i])
let () = print_endline @@ f "123"

**デフォルトの名無しさん** · 2022/08/05(金) 11:38:46.19

>>615
おもしれーことやってんじゃん
じゃあperlの再帰する正規表現で行くかな
https://paiza.io/projects/dxhWJaJSrcZdAFpJKe9uvQ

**デフォルトの名無しさん** · 2022/08/05(金) 13:16:58.45

gnuWin32を基本使っています。
で行のソートなのですが、各行の末尾から逆向きの文字でソートって出来ませんか
たとえば
aaaaCB
bbbBA
cccccDB
とかあったとき、これを
bbbBA
aaaaCB
cccccDB
としたいのです。
もし難しそうであれば、各行を反転、つまり
abcde
を
edcba
とする方法でもいいです。

**デフォルトの名無しさん** · 2022/08/05(金) 13:43:08.90

>>630
Java
Arrays.sort(a, (left, right) -> {
　var l = left.length() - 1;
　var r = right.length() - 1;

　while (l > -1 && r > -1) {
　　var c = Character.compare(left.charAt(l), right.charAt(r));

　　if (c != 0) {
　　　return c;
　　}

　　l--;
　　r--;
　}

　if (l > -1) {
　　return 1;
　}

　if (r > -1) {
　　return -1;
　}

　return 0;
});

96 · 2022/08/05(金) 19:36:20.73

>>630　Perl5が使える環境であれば…

~ $ cat 20_630_isort.pl
chomp (@a = <>);
sub f {join '', reverse split'', $_[0]}
print "$_\n" for sort{f($a) cmp f($b)} @a;

~ $ cat input.txt
aaaaCB
bbbBA
cccccDB

~ $ perl 20_630_isort.pl < input.txt > output.txt

~ $ cat output.txt
bbbBA
aaaaCB
cccccDB

**デフォルトの名無しさん** · 2022/08/05(金) 20:52:38.21

>>630 ruby
https://ideone.com/lQz0m2
f = ->(a) {a.sort_by &:reverse}
p f.(%w(aaaaCB bbbBA cccccDB))

>>630 octave
https://ideone.com/AUCxr3
function i = sorti(varargin), [~, i] = sort(varargin{:}); end
f = @(a) a(sorti(cellfun(@(s) {flip(s)}, a)));
f({'aaaaCB' 'bbbBA' 'cccccDB'})

96 · 2022/08/05(金) 22:43:00.57

>>632
しまった、これだとsortの計算量 N・log N に応じた回数、比較のための文字列逆転 sub f の呼出しが起き、
データの行数が多いと遅いな

96 · 2022/08/06(土) 00:54:37.07

>>630 Perl5、計算量の抑制に配慮したバージョンと実行例

$ cat 20_630_isort2.pl
print $_->[0] for sort{$a->[1] cmp $b->[1]} map{[$_, scalar reverse $_]} <>;

$ cat input.txt
aaaaCB
bbbBA
cccccDB

$ perl 20_630_isort2.pl input.txt > output.txt

$ cat output.txt
bbbBA
aaaaCB
cccccDB

96 · 2022/08/06(土) 01:06:37.87

>>635
これ各行の行末の改行まで含めてreverseしてsortキーとするので、
もし入力ファイルの最後の行に改行が欠けていて無かったらsort結果がおかしくなる。
そのような万が一の場合に対してもrubstさも持たすならこうか

chomp(@a = <>);
print "$$_[0]\n" for sort{$$a[1] cmp $$b[1]} map{[$_, scalar reverse]} @a;

**デフォルトの名無しさん** · 2022/08/06(土) 05:59:59.26

>>630
Kotlin
https://paiza.io/projects/bK5T2CQgxXwvVlcjKvw-dA

ただ処理を連結しただけだな。コマンドラインでパイプ使ったみたいな感じ。

**デフォルトの名無しさん** · 2022/08/06(土) 06:11:51.22

>>630
Linux 等の UNIX 系 OS で rev コマンドと sort コマンドが使える環境ならシェルのコマンドラインからこう入力するとできる。
(入力文字列は input.txt に入っているとして)。

rev input.txt | sort | rev

Windows の環境でやる場合は互換性のあるコマンドを利用するか、または Cygwin や WSL や WSL2 等の UNIX 互換環境の中でコマンドラインから実行できる。

96 · 2022/08/06(土) 08:20:40.77

>>610 Perl5

use Bit::Vector;
$v = Bit::Vector->new(101);
for (<DATA>) {
　($h, $s, $e) = /0x(\S+) (\S+) (\S+)/;
　$v->from_Hex("$h");
　$v->Interval_Reverse($e, $s);
　($r) = $v->to_Hex() =~ /0+(\w+)/;
　print "$_ => 0x$r\n";
}
__DATA__
0x80 7 0
0xABCD 11 4
0x2 99 1

※インデントを見易くするため全角スペースに置換しています

実行結果

$ perl 20_610_rebitfld.pl
0x80 7 0
=> 0x1
0xABCD 11 4
=> 0xA3DD
0x2 99 1
=> 0x8000000000000000000000000

**デフォルトの名無しさん** · 2022/08/06(土) 10:15:53.94

>>638
Linux環境ではrevというのがあるのですね
gnuWin32は全部揃ってないのですね。なんだかなあ
rev以外でもLinuxにあってgnuWin32にはないのがあるのかな
rev、自分で作ろうかな

**デフォルトの名無しさん** · 2022/08/06(土) 11:17:00.60

>>630 ocaml
https://ideone.com/zdWLHX
let rev s = String.init (String.length s) (fun i -> s.[String.length s - 1 - i])
let (<<) f g x = f (g x)
let f = List.map (fun (r, s) -> s) << List.sort compare << List.map (fun s -> (rev s, s))
let () = List.iter print_endline @@ f ["aaaaCB"; "bbbBA"; "cccccDB"];

96 · 2022/08/06(土) 15:02:55.35

>>640
gnuWin32 用の rev.exe が欲しいなら、書き起こさなくともutil-linux-ng パッケージに入っていると思うが…

util-linux-ng for Windows
http://gnuwin32.sourceforge.net/packages/util-linux-ng.htm

Util-Linux contains miscellaneous utilities:
col: filter reverse line feeds from input
colcrt: filter nroff output for CRT previewing
colrm: remove columns from a file
ddate: converts Gregorian dates to Discordian dates
getopt: parse command options (enhanced)
hexdump: ascii, decimal, hexadecimal, octal dump
line: read one line
rename: rename files
rev: reverse lines of a file or files　←
tailf: follow the growth of a log file
whereis: locate the binary, source, and manual page files for a command

作りたいというなら類似のsampleソースはｺﾞﾏﾝと転がっとるし

C reverse string rev.c strrev - Google 検索
https://www.google.com/search?q=C+reverse+string+rev.c+strrev

C program to reverse a string | Programming Simplified
https://www.programmingsimplified.com/c-program-reverse-string

C_69 C Program to Reverse a String | with strrev() and without strrev() function - YouTube
https://www.youtube.com/watch?v=530jWnBMD2M

…　好きにしんしゃい

96 · 2022/08/06(土) 15:16:53.43

Cygwin などに使われている util-linux ﾊﾟｯｹｰｼﾞのｵﾘｼﾞﾅﾙな現行のソースは

GitHub - util-linux/util-linux
https://github.com/util-linux/util-linux

かな。そのうち rev.c のｿｰｽは

util-linux/rev.c at master ・ util-linux/util-linux ・ GitHub
https://github.com/util-linux/util-linux/blob/master/text-utils/rev.c

ちな util-linux ﾊﾟｯｹｰｼﾞは2006年に fork したとき名前に -ng をつけて util-linux-ng になったが
2010年に util-linux に名前を戻している。
cf.)
util-linux - Wikipedia
https://en.wikipedia.org/wiki/Util-linux

ついつい、調べ物をしてしまった…orz

**デフォルトの名無しさん** · 2022/08/06(土) 17:24:05.41

>>642
ありがとう。そんなとこにあったのか

**デフォルトの名無しさん** · 2022/08/07(日) 09:51:45.46

>>642
linuxのrevでやってみました。ところが、全角日本語はやはりダメですね
なので、AHK

**デフォルトの名無しさん** · 2022/08/07(日) 09:52:47.25

>>642
linuxのrevでやってみました。ところが、全角日本語はやはりダメですね
なので、AHKで自作で作ってみました
rev input.txt | sort | rev
で問題なく動きました

**デフォルトの名無しさん** · 2022/08/07(日) 16:26:03.27

>>645
環境変数 LANG の設定の問題とか?
こっちでは日本語での rev できたよ。
CentOS 7 で bash で LANG=ja_JP.UTF-8 の状態。そこに Windows から TeraTerm で ssh ログインして試したらできた。

$ echo $LANG
ja_JP.UTF-8
$ ( echo 見城徹 ; echo 箕輪厚介 ; echo ガーシー ; echo 木原誠二官房副長官 ) | rev
徹城見
介厚輪箕
ーシーガ
官長副房官二誠原木
$

**デフォルトの名無しさん** · 2022/08/07(日) 18:30:22.20

お題
0～2がランダムに8個入力されます
8個の数字を:で結合して出力してください
0が連続する場合は連続する0を::に置換してください
0の連続を::に置換できるのは1回のみです
0の連続が複数存在する場合は長い方を置換してください
長さが同じ場合は先頭の方を置換してください
1個の0は置換してはいけません

例
0, 0, 0, 1, 2, 1, 2, 2 → ::1:2:1:2:2
2, 1, 2, 0, 0, 0, 1, 1 → 2:1:2::1:1
1, 1, 2, 2, 1, 0, 0, 0 → 1:1:2:2:1::
2, 0, 0, 2, 0, 0, 0, 2 → 2:0:0:2::2
1, 0, 0, 1, 2, 0, 0, 2 → 1::1:2:0:0:2
0, 1, 2, 0, 1, 1, 0, 2 → 0:1:2:0:1:1:0:2

**デフォルトの名無しさん** · 2022/08/07(日) 19:28:27.32

>>648 Ruby

f = -> s { x = s.gsub(', ', ?:); y = x.scan(/0(?::0)+/).max&.count(?0) || 0; x.sub(/:?0(:0){#{y - 1}}+:?/, '::') }

[

'0, 0, 0, 1, 2, 1, 2, 2',

'2, 1, 2, 0, 0, 0, 1, 1',

'1, 1, 2, 2, 1, 0, 0, 0',

'2, 0, 0, 2, 0, 0, 0, 2',

'1, 0, 0, 1, 2, 0, 0, 2',

'0, 1, 2, 0, 1, 1, 0, 2'

].each{ |s| puts '%s -> %s' % [s, f[s]] }

# =>
0, 0, 0, 1, 2, 1, 2, 2 -> ::1:2:1:2:2
2, 1, 2, 0, 0, 0, 1, 1 -> 2:1:2::1:1
1, 1, 2, 2, 1, 0, 0, 0 -> 1:1:2:2:1::
2, 0, 0, 2, 0, 0, 0, 2 -> 2:0:0:2::2
1, 0, 0, 1, 2, 0, 0, 2 -> 1::1:2:0:0:2
0, 1, 2, 0, 1, 1, 0, 2 -> 0:1:2:0:1:1:0:2

**デフォルトの名無しさん** · 2022/08/07(日) 19:57:31.19

>>648
perl5
https://paiza.io/projects/5qVZ3qjP3YDPyVVywRVEEQ

**デフォルトの名無しさん** · 2022/08/07(日) 20:01:42.93

正規表現のreplace一個で行けそうと思ったけど最長マッチみたいなの無理なのか

**デフォルトの名無しさん** · 2022/08/07(日) 20:16:36.94

拡張正規表現の中にはチューリング完全なものもあるけどね

**デフォルトの名無しさん** · 2022/08/07(日) 20:17:47.43

そうか
単純に s/0{$n}/::/;
を連射して増やしていくだけでいいんだな
最後に成功したのを返す感じで

**デフォルトの名無しさん** · 2022/08/07(日) 20:58:47.87

>>648
perl5 # sub squash0 を>653 で書き替えた
https://paiza.io/projects/pNwwe9yNB_dczFaRbV3ZeA

**デフォルトの名無しさん** · 2022/08/07(日) 22:19:54.37

>>648 octave
https://ideone.com/3Udpgi
function s = f(a)
c = diff(find([1 diff(a) 1]));
e = cumsum(c);
b = e - c + 1;
n = arrayfun(@(i) a(i), e);
[~, i] = max(c.*(n == 0));
s = arrayfun(@(n) {int2str(n)}, a);
if (1 < c(i))
s(b(i):e(i)) = ':';
end
s = regexprep(strjoin(s, ':'), ':::+', '::');
end

**655** · 2022/08/07(日) 23:28:54.94

結果同じだけど若干の整理可能だった

n = arrayfun(@(i) a(i), e);
[~, i] = max(c.*(n == 0));
↓
[~, i] = max(c.*(a(e) == 0));

96 · 2022/08/08(月) 01:54:39.48

>>648　Perl5

use List::Util 'max';
for (<DATA>) {
　%h = map{length($_) => $_} /(,?0(?:,0)+,?)/g;
　$n = max keys %h;
　chomp($i = $_);
　s/$h{$n}/::/ if $n;
　s/,/:/g;
　print "$i => $_";
}
__DATA__
0,0,0,1,2,1,2,2
2,1,2,0,0,0,1,1
1,1,2,2,1,0,0,0
2,0,0,2,0,0,0,2
1,0,0,1,2,0,0,2
0,1,2,0,1,1,0,2

※見易くするためインデントを全角スペースに置換してあります。

実行結果
$ perl 20_648.pl
0,0,0,1,2,1,2,2 => ::1:2:1:2:2
2,1,2,0,0,0,1,1 => 2:1:2::1:1
1,1,2,2,1,0,0,0 => 1:1:2:2:1::
2,0,0,2,0,0,0,2 => 2:0:0:2::2
1,0,0,1,2,0,0,2 => 1::1:2:0:0:2
0,1,2,0,1,1,0,2 => 0:1:2:0:1:1:0:2

**デフォルトの名無しさん** · 2022/08/08(月) 18:20:49.05

>>648
Common Lisp https://ideone.com/p9qSmC
JavaScript https://ideone.com/2pXZdF

**デフォルトの名無しさん** · 2022/08/10(水) 20:35:58.72

>>648 ocaml
https://ideone.com/j7yye2

**デフォルトの名無しさん** · 2022/08/10(水) 21:08:31.81

>>648 octave
https://ideone.com/Uyr9cV
・[1, 1, 1, 1, 1, 1, 1, 1]のとき正しくなかったのを修正

**デフォルトの名無しさん** · 2022/08/11(木) 15:24:25.24

>>648
Kotlin
https://paiza.io/projects/NFrxhMlgOO7dQdW20u_-kw

できたことはできたが、なんかもっと良いやり方がありそうな気もする。

**デフォルトの名無しさん** · 2022/08/11(木) 15:46:46.10

>>648
敢えて正規表現使わずKotlinで。ややこしかったわ
https://ideone.com/JZcPdU

**デフォルトの名無しさん** · 2022/08/11(木) 15:51:37.48

>>661
別の解き方が見れておもろい

**デフォルトの名無しさん** · 2022/08/11(木) 22:42:32.18

>>648 java
https://ideone.com/f5yjN8

**661** · 2022/08/12(金) 00:33:44.04

全部0の時に :: にならなかったので>>661はちょっと修正した。

**デフォルトの名無しさん** · 2022/08/13(土) 14:28:26.51

お題
1～37からランダムに重複なく7つの数を選び出して小さい順にソートしてください
それを5つ出力してください

例
[2, 4, 9, 13, 20, 29, 36]
[1, 4, 12, 13, 15, 20, 33]
[1, 3, 5, 7, 11, 20, 24]
[3, 7, 8, 21, 27, 33, 34]
[1, 2, 14, 23, 26, 35, 36]

**デフォルトの名無しさん** · 2022/08/13(土) 14:31:07.91

>>666 Ruby
[*1..37].sample(7).sort

# => [4, 8, 15, 20, 24, 26, 37]

**デフォルトの名無しさん** · 2022/08/13(土) 18:53:16.03

>>666 Common Lisp
https://ideone.com/NMCh3O

**デフォルトの名無しさん** · 2022/08/13(土) 19:08:33.35

>>668
投稿後一部訂正、n の範囲チェックを追加

負数は弾く
(check-type n (integer 0 *))

上限はシーケンスの長さ
(loop repeat n
↓
(loop (min n (length sequence))

**デフォルトの名無しさん** · 2022/08/13(土) 19:54:15.55

>>666 octave
https://ideone.com/Iml4xq
f = @() sort(randperm(37, 7));
cell2mat(arrayfun(@(~) {f()}, (1:5)'))

**デフォルトの名無しさん** · 2022/08/14(日) 00:39:46.54

>>666
Kotlin script

repeat(5) { println((1..37).toList().shuffled().slice(0..6).sorted()) }

実行例

[6, 7, 9, 10, 16, 22, 27]
[2, 8, 9, 11, 16, 32, 33]
[11, 13, 18, 25, 26, 30, 34]
[2, 3, 12, 14, 20, 27, 37]
[7, 13, 14, 19, 27, 30, 35]

**671** · 2022/08/14(日) 00:41:50.08

>>671はこれでも同じだった (toList() 抜き)。

repeat(5) { println((1..37).shuffled().slice(0..6).sorted()) }

96 · 2022/08/14(日) 01:45:55.09

>>666 Perl5

use List::Util 'shuffle';
@a = 1..37;
$" = ', ';
print "@{[(shuffle@a)[0..6]]}\n"
　for 1..5;

実行結果

$ perl 20_666_shuffle1-37x5.pl
3, 2, 10, 25, 9, 23, 27
35, 6, 30, 8, 37, 29, 36
20, 29, 19, 18, 37, 21, 23
12, 30, 29, 7, 3, 31, 26
34, 12, 1, 14, 28, 2, 21

**デフォルトの名無しさん** · 2022/08/14(日) 01:54:16.92

>>673
ソートされてないじゃん

96 · 2022/08/14(日) 01:59:26.66

>>666 Perl5、>>673 は sort するの忘れてた…orz

use List::Util 'shuffle';
@a = 1..37;
$" = ', ';
print "@{[sort{$a <=> $b} ((shuffle @a)[0..6])]}\n" for 1..5;

実行結果

$ perl 20_666_shuffle1-37x5.pl
5, 9, 22, 28, 30, 32, 36
1, 2, 7, 21, 23, 26, 36
6, 14, 15, 16, 19, 26, 28
13, 14, 15, 16, 30, 35, 37
1, 3, 10, 20, 27, 29, 30

**デフォルトの名無しさん** · 2022/08/14(日) 12:35:56.93

>>666 ocaml
https://ideone.com/3UpGQV
let seq b e =
let rec aux acc n =
if n < b then acc else aux (n :: acc) (pred n)
in aux [] e
let (<<) f g x = f (g x)
let take n =
let rec aux acc n = function [] -> acc | x :: xs ->
if n <= 0 then acc else aux (x :: acc) (pred n) xs
in List.rev << aux [] n
let shuffle =
List.map snd << List.sort compare << List.map (fun x -> (Random.bits (), x))
let string_of_ints =
Printf.sprintf "[%s]" << String.concat "; " << List.map string_of_int
let f () = string_of_ints @@ List.sort compare @@ take 7 @@ shuffle @@ seq 1 37
let () = Random.self_init ();
List.iter (print_endline << f << ignore) @@ seq 1 5

**デフォルトの名無しさん** · 2022/08/14(日) 18:02:28.90

>>666 c
https://ideone.com/EHr86S

**デフォルトの名無しさん** · 2022/08/14(日) 21:45:18.38

(1) aとbからなる文字列があるときその中で部分文字列bbaが最初に完成する文字数を求める
ab -> 0
aaa -> 0
bba -> 3
bbba -> 4
babbab -> 5
bbabbaa -> 3

(2) ちょうど50文字のaとbからなる全ての並びの文字列の内
50文字目(最後)にbbaが完成するのは何通りあるか？

長さ3文字で3文字目に完成するのはbbaのひとつだけ
長さ4文字で4文字目に完成するのはabbaとbbbaの二通り

**デフォルトの名無しさん** · 2022/08/14(日) 22:24:05.74

>>678 Ruby
(1)
%w[ab aaa bba bbba babbab bbabbaa].each do |s|
i = s =~ /bba\K/
puts '%s -> %d' % [s, i ? i + 3 : 0]
end

# =>
ab -> 0
aaa -> 0
bba -> 3
bbba -> 4
babbab -> 5
bbabbaa -> 3

(2)
f = -> (n, a=[0, 0, 1]) {return a[n] if n<a.size; a<<f[n-1,a]+f[n-2,a]+1;a.last}

p f[49] # => 12586269024

**デフォルトの名無しさん** · 2022/08/14(日) 22:30:32.35

行列の掛け算を実装せよ
二次正方行列 A=((1 -2) (2 3)), B = ((-2 1)(3 -1)) について
AB, BA を求めよ
可能であれば二次正方行列以外の行列についても対応せよ
実装の細かい点については出題者は指定しないので良きに計らって結構。

＜お願い＞
行列の積において結合則成立の証明を教えてください

**デフォルトの名無しさん** · 2022/08/14(日) 22:43:04.52

>>678 c
https://ideone.com/hlf3c3
・(1)(2)ともに自信なし（たぶんお題の意味わかってない）

**デフォルトの名無しさん** · 2022/08/14(日) 22:49:01.35

>>680 Ruby Matrixクラス不使用
def product(a, b)
[
[a[0][0] * b[0][0] + a[0][1] * b[1][0], a[0][0] * b[0][1] + a[0][1] * b[1][1]],
[a[1][0] * b[0][0] + a[1][1] * b[1][0], a[1][0] * b[0][1] + a[1][1] * b[1][1]],
]
end

p product([[1, -2], [2, 3]], [[-2, 1], [3, -1]])

# => [[-8, 3], [5, -1]]

# 夏休みの宿題は自分でやりましょう

**デフォルトの名無しさん** · 2022/08/14(日) 22:51:54.64

>>682
＞二次正方行列以外の行列についても対応せよ

**デフォルトの名無しさん** · 2022/08/14(日) 23:05:21.92

>>680 >>683
def product(a, b)
m = a.first.size
c = Array.new(a.size){[]}
a.size.times do |i|
b.first.size.times do |j|
c[j][i] = m.times.map{|k| a[k][i] * b[j][k]}.sum
end
end
c
end

p product([[1, -2], [2, 3]], [[-2, 1], [3, -1]])
# => [[0, 7], [1, -9]]

p product([[-2, 1], [3, -1]], [[1, -2], [2, 3]])
# => [[-8, 3], [5, -1]]

**デフォルトの名無しさん** · 2022/08/14(日) 23:09:42.44

NxMのデータをどう定義するかだけの問題だな
毎回悩む下は後悔してるタイプ
(defparameter *position-IO*
(loop
for input in '(7 8 9
4 5 6
1 2 3)
for pos below 9
collect (cons input pos)))

**デフォルトの名無しさん** · 2022/08/15(月) 00:42:19.42

>>679
どういう頭してたらその法則性に気づくん？？？

**デフォルトの名無しさん** · 2022/08/15(月) 01:31:39.90

>>678
Kotlin script

(1)
listOf("ab","aaa","bba","bbba","babbab","bbabbaa").forEach { print("$it ->"); it.indexOf("bba").let { if (it >= 0) println(it + 3) else println(0) } }

実行時の出力

ab ->0
aaa ->0
bba ->3
bbba ->4
babbab ->5
bbabbaa ->3

(2)
println(1L shl (50 - 3))

実行時の出力

140737488355328

**デフォルトの名無しさん** · 2022/08/15(月) 01:56:11.12

(2)
出題の仕方が間違ってた
最後に唯一のbbaが現れるパターンと書くべきだった
自分の中ではこのことしか考えてなかったから
>>679さんは汲んでくれたようで、早さにも驚いたけど

**デフォルトの名無しさん** · 2022/08/15(月) 09:19:59.19

なるほど, 再帰的に構成すればいいのか
aから始まる時: a + x[n-1]
baから始まる時: ba + x[n-2]
bbから始まる時: bb...bba

**デフォルトの名無しさん** · 2022/08/15(月) 09:43:22.06

>>686
そういう漸化式は普通に受験で良くでてくる

**デフォルトの名無しさん** · 2022/08/15(月) 17:00:11.92

>>680
https://ideone.com/umJbre
https://ja.wikibooks.org/wiki/%E7%B7%9A%E5%9E%8B%E4%BB%A3%E6%95%B0%E5%AD%A6/%E8%A1%8C%E5%88%97%E3%81%A8%E8%A1%8C%E5%88%97%E5%BC%8F/%E7%AC%AC%E4%B8%89%E9%A1%9E/%E8%A1%8C%E5%88%97%E3%81%AE%E7%A9%8D#matrix's-associativity

**デフォルトの名無しさん** · 2022/08/15(月) 17:16:58.66

>>691 c
https://ideone.com/47VxwF
・二次元でintのみ

**デフォルトの名無しさん** · 2022/08/15(月) 17:19:53.25

>>680
https://ideone.com/47VxwF
・二次元でintのみ

**693** · 2022/08/16(火) 16:05:44.79

>>680 c
https://ideone.com/lWljpL
・>>693から若干の整理
・インデントも修正

**デフォルトの名無しさん** · 2022/08/16(火) 19:29:50.25

>>688
え？言ってる意味がわからない。どういうこと？

**デフォルトの名無しさん** · 2022/08/16(火) 20:01:21.15

bba+gge=momo

**デフォルトの名無しさん** · 2022/08/16(火) 20:30:31.72

>>695
末尾以外にbbaが現れる文字列を除外するってことじゃろう

**デフォルトの名無しさん** · 2022/08/16(火) 21:15:34.85

bbaが最後に達成されるんじゃなければ2^47計算するだけのなんの面白みもない問題になるからそこで気付く人は気づくよね

**デフォルトの名無しさん** · 2022/08/16(火) 23:04:49.04

ついでに50文字で今度は最後がbbaじゃなくて
bbbのときとbabのときのそれぞれのパターン数を求めるって問題

**デフォルトの名無しさん** · 2022/08/17(水) 01:28:19.97

>>697
なるほど。やっと意味がわかった。