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

■ このスレッドは過去ログ倉庫に格納されています
2019/07/28(日) 19:39:57.54ID:832c/ukY
プログラミングのお題スレです。

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

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

※前スレ
プログラミングのお題スレ Part14
http://mevius.5ch.net/test/read.cgi/tech/1558168409/
2019/09/09(月) 13:13:33.41ID:4K8wNjEy
>>373 Ruby

p [3, 1, 4, 1, 5, 9, 2, 6, 5].each_cons(2).map{|e| -e.reduce(:-)}
# => [-2, 3, -3, 4, 4, -7, 4, -1]
2019/09/09(月) 15:22:46.46ID:pyLk+Xbb
>>373 Pharo/Squeak Smalltalk

#(3 1 4 1 5 9 2 6 5) overlappingPairsCollect: [:x :y | y - x]

"=> #(-2 3 -3 4 4 -7 4 -1) "
2019/09/09(月) 15:35:48.47ID:pmQvKTaB
>>373
https://ideone.com/AoQVOB
C++。あってるかな？
2019/09/09(月) 15:55:42.79ID:8EKyQA8Q
>>373
perl5
"3 1 4 1 5 9 2 6 5" =~ m/(\d) (?= \s? (\d) ) (?{push @diff, $2 -$1}) /xg;
print "@diff";
-2 3 -3 4 4 -7 4 -1
382デフォルトの名無しさん
垢版 |
2019/09/09(月) 17:47:36.36ID:Uwb0lHsl
>>373
Kotlin
https://paiza.io/projects/E_9ZAZNclHjS7_qn4WPBbg

ファイルというか標準入力から入力する事しかできない。
383デフォルトの名無しさん
垢版 |
2019/09/09(月) 18:55:29.45ID:nBEHXDpg
>>373
ファイルからの読み込み派が居ない件。。。

Haskell

main = readFile "count.txt" >>= return.read >>= \lst -> print $ zipWith (-) (tail lst) lst
― ファイルから読まない場合は
― main = print $ zipWith (-) (tail lst) lst where lst = [3,1,4,1,5,9,2,6,5]

test.txt
[3,1,4,1,5,9,2,6,5]

out:
[-2,3,-3,4,4,-7,4,-1]
2019/09/09(月) 21:23:29.01ID:pmSRY1k7
>>373 octave
https://ideone.com/SV1flm

>>373 ruby
https://ideone.com/KZ9YO3

>>373 ocaml
https://ideone.com/aiOLiG
2019/09/10(火) 00:22:25.45ID:2zzGvcE4
>>219 Perl5

$s = 'AKDAK';
@a = ('^', split'', $s);

$o{$_} //= ++$i for @a;
%e = map{$a[$_] => $a[$_+1]} 0..$#a-1;
@p = sort{$o{$a} <=> $o{$b}} keys %o;

$d{$p[-1]} = $p[-1].'$';
push @p, '$';
$e{'$'} = '';

print "'$s'\n→\n";
for (@p) {
　$v = $e{$_};
　$r = $d{$v} // $v;
　print "$_: $r.\n";
}


実行結果
~ $ perl 15_219.pl
'AKDAK'
→
^: A.
A: K.
K: D$.
D: A.
$: .
2019/09/10(火) 01:16:31.32ID:/hHoc5h9
状態遷移図ってどんなときに役立つかな？
2019/09/10(火) 01:20:32.52ID:2zzGvcE4
ほらまぁ
状態遷移を表形式で定型的に定義した方が
言葉の羅列やグラフもどきポンチ絵などで表現するより明確な場面
さまざまなとき
2019/09/10(火) 01:22:32.02ID:2zzGvcE4
あいや、表じゃなくて図か。
そしたら、なんとなく依存関係などをややこしいグラフで表現して
ひもつけたとか賜って解釈したような気にさせるとき

自分で考えなよ
389デフォルトの名無しさん
垢版 |
2019/09/10(火) 02:40:29.88ID:Ik1iUNRF
>>373 javascript
[3,1,4,1,5,9,2,6,5]
.reduce((acc, n, i, arr) => [...acc, arr[i + 1] - n], [])
.slice(0, -1)
390デフォルトの名無しさん
垢版 |
2019/09/10(火) 08:11:29.51ID:lIijspdS
>>373

>>379 のブロック内で処理するのが分かりやすかったので、Haskellもprint以外の処理をリスト内包表記で完結するようにした。

main = print [y - x | let lst@(_:ls) = [3,1,4,1,5,9,2,6,5], (x,y) <- zip lst ls]

文字数としては >>383 より増えるが、読みやすさ優先。
2019/09/10(火) 17:53:27.20ID:cZVhsOAf
Smalltalkはやりたいことだけ書けばいいのがいい
392デフォルトの名無しさん
垢版 |
2019/09/10(火) 18:46:19.95ID:CNsNp03m
分かったよじゃあoverlappingPairsCollect実装するよ…

const overlappingPairsCollect = (arr, cb) => {
let head = arr.shift();
const overlappingPairs = [];
for (const value of arr) {
overlappingPairs.push([head, value]);
head = value;
}
return overlappingPairs.map(([a, b]) => cb(a, b));
}

overlappingPairsCollect([3,1,4,1,5,9,2,6,5], (a, b) => b - a);
//=> [-2,3,-3,4,4,-7,4,-1]
393デフォルトの名無しさん
垢版 |
2019/09/10(火) 19:17:03.68ID:CNsNp03m
ああ… forの前にif (!head) return overlappingPairs; のearly return入れ忘れた…
2019/09/10(火) 19:18:47.68ID:ER41jhKS
何言語？
2019/09/10(火) 19:51:01.24ID:4IK1yyiH
女子小学生のメスガキビッチ言語
396デフォルトの名無しさん
垢版 |
2019/09/10(火) 20:05:04.03ID:9QXTHM58
なるほどjavascriptね！
2019/09/10(火) 20:19:20.42ID:ER41jhKS
https://ideone.com/d5aNNP
C++。なんか面白そうだったので、 >>392 をパクって移植してみた。
結構ジェネリックにかけたが、考える負荷高いね。
2019/09/10(火) 20:31:26.62ID:ER41jhKS
>>397
コード追加。MakeHogeで困ることあるかなぁ？
あんまりユースケース見えてないから、不具合あったら教えて。
2019/09/10(火) 21:25:03.39ID:OfzP/6E7
>>392
>>377 も頼む！
2019/09/10(火) 23:08:14.13ID:aMyCuNre
お題
スネークケースをアッパーキャメルケースに変換せよ
アンダースコアを単語の区切りとみなし、単語の先頭は大文字に、先頭以外は小文字に変換すること
また、単語を連結したときに数字が連続する場合はアンダースコアを残すこと

(例)
snake_case => SnakeCase

ODAI00_99_TEST => Odai00_99Test

x_0_x => X0X

UpperCamelCase => Uppercamelcase
401デフォルトの名無しさん
垢版 |
2019/09/10(火) 23:20:02.02ID:Ik1iUNRF
>>399
allButFirstとallButLastは簡単だけどjsは生き残ってるスクリプト言語にしては珍しく演算子使ったリスト同士の演算が用意されてないのでfnは>>377みたいにキレイに書けない。

const allButFirst = arr => arr.slice(1);
const allButLast = arr => arr.slice(0, -1);
const fn = arr => allButLast(arr).reduce((acc, v, i) => (acc[i] -= v, acc), allButFirst(arr));

fn([3,1,4,1,5,9,2,6,5]);
//=> [-2,3,-3,4,4,-7,4,-1]
2019/09/11(水) 00:10:49.73ID:JxGfX2fh
>>400 Perl5

use feature say;
for (<DATA>) {
　say map{ucfirst lc} /((?:\d_\d|[^_\s])+)/g;
}
__DATA__
snake_case
ODAI00_99_TEST
x_0_x
UpperCamelCase


実行結果
~ $ perl 15_400.pl
SnakeCase
Odai00_99Test
X0X
Uppercamelcase
2019/09/11(水) 00:26:05.86ID:JxGfX2fh
>>402 その例ではいいけど
Odai00_9_9Test
↓になっちまうな…
Odai00_99test
2019/09/11(水) 00:31:52.77ID:TkJgDVYV
>>400
https://ideone.com/6apRE9
C++。オレ、馬鹿になってる〜。と苦しんでいた。
405デフォルトの名無しさん
垢版 |
2019/09/11(水) 00:44:08.30ID:hWizELa3
>>397
C++むずかしすぎワロタｗｗｗｗｗ
2019/09/11(水) 00:47:45.94ID:TkJgDVYV
C++とJSとの違いは大雑把に言って、使う型を先に決めるか後で決めるか。という程度だと思う。

オレ、自分の幸福度を上げるために、80行位で問題とくようにしている。
というか、手癖でそれくらいになる。
407デフォルトの名無しさん
垢版 |
2019/09/11(水) 02:04:01.50ID:hWizELa3
>>400 JavaScript
const fn = s => s.split`_`
.map(([first, ...rest]) => [first.toUpperCase(), rest.join``.toLowerCase()].join``)
.reduce((acc, word) => acc + (/[0-9]{2}/.test(acc[acc.length - 1] + word[0]) ? '_' : '') + word);

fn('snake_case');
//=> "SnakeCase"
fn('ODAI00_99_TEST');
//=> "Odai00_99Test"
fn('x_0_x');
//=> "X0X"
fn('UpperCamelCase');
//=> "Uppercamelcase"
2019/09/11(水) 02:47:21.46ID:0/zUYWhl
>>400 Squeak Smalltalk

| fn |

fn := [:str |
| words |
words := str asLowercase subStrings: '_'.
words first capitalized , (words overlappingPairsCollect: [:x :y |
((x last isDigit and: [y first isDigit]) ifTrue: '_' ifFalse: '') , y capitalized
]) join
].

fn value: 'snake_case'. "=> 'SnakeCase' "
fn value: 'ODAI00_99_TEST'. "=> 'Odai00_99Test' "
fn value: 'x_0_x'. "=> 'X0X' "
fn value: 'UpperCamelCase'. "=> 'Uppercamelcase' "
fn value: 'Odai00_9_9Test'. "=> 'Odai00_9_9test' "
2019/09/11(水) 06:02:16.09ID:CEu0fvWD
>400 Ruby

f = -> s {s.split(/(?<=\D)_|_(?=\D)/).map(&:capitalize).join}

%w[
　　 snake_case ODAI00_99_TEST x_0_x UpperCamelCase
].each{|s| puts '%s => %s' % [s, f[s]]}

# =>
snake_case => SnakeCase
ODAI00_99_TEST => Odai00_99Test
x_0_x => X0X
UpperCamelCase => Uppercamelcase
2019/09/11(水) 06:06:45.97ID:CEu0fvWD
>>409 補足

puts f["Odai00_9_9Test'] # => Odai00_9_9test
2019/09/11(水) 12:54:52.45ID:Alp4BtBi
>>400
perl5
https://paiza.io/projects/GgkMgqOqyzwwgbmu-Fn-Vg
2019/09/11(水) 21:23:01.78ID:RlhjBlE6
お題：リストの奇数位置にある要素のみを含むリストを作れ
ただし、先頭要素を1番目と数える
[1, 2, 3, 4, 5]
↓
[1, 3, 5]

rust
https://ideone.com/yXYsFB

octave
https://ideone.com/Go8xXL
413デフォルトの名無しさん
垢版 |
2019/09/11(水) 21:27:05.78ID:C94vqLvq
>>400

UpperCamelCaseはそのまま返すべきだろう。
(と言う事で、1文字目が大文字かつ全文に’_’が無い場合は、(恐らくUpperCamelCaseだろうと期待して)そのまま返すようにした)

Haskell

import Data.Char

main = mapM_ (print.f) ["snake_case","ODAI00_99_TEST","x_0_x","UpperCamelCase","notupperCamelCase"]

f [] = []
f lst@(x:_) | and [elem x ['A'..'Z'], (not.elem '_') lst] = lst
f (x:xs) = toUpper x:map toLower a ++ f (map toLower $ f' a b)
where
(a,b) = span (/= '_') xs

f' _ [] = []
f' [] (y:ys) = ys
f' xs lst@('_':y:ys) |and [(isDigit.last) xs, isDigit y] = lst
f' _ (_:ys) = ys


out:

"SnakeCase"
"Odai00_99Test"
"X0X"
"UpperCamelCase"
"Notuppercamelcase"
2019/09/11(水) 23:29:56.75ID:sKkTHzOH
>>400 Perl5、>>402-403 の修正、>>413 のように UpperCamelCase など_を含まない文字列はそのまま返す

use feature say;
for(<DATA>) {
@a = split/(?<!\d)_|_(?!\d)|\s/;
say 1 == @a ? @a : map{ucfirst lc} @a;
}
__DATA__
snake_case
ODAI00_99_TEST
x_0_x
UpperCamelCase
_local_vvar_
lavel_style_
OdAi00_9_9TeST


実行結果
~ $ perl 15_400_fix.pl
SnakeCase
Odai00_99Test
X0X
UpperCamelCase
LocalVvar
LavelStyle
Odai00_9_9Test
2019/09/11(水) 23:34:45.60ID:sKkTHzOH
>>414 ｺﾞﾒﾝ、実行結果貼り間違えた（下記のように最後のOdAi00_9_9TeSTはそのまま出る）

~ $ perl 15_400.pl
SnakeCase
Odai00_99Test
X0X
UpperCamelCase
LocalVvar
LavelStyle
OdAi00_9_9TeST
2019/09/11(水) 23:43:35.81ID:sKkTHzOH
>>412 Perl5

@a = a..z;
@x = map{$_-1} grep{$_&1} 1..@a;
@b = @a[@x];
print "[@b]\n";


実行結果
~ $ perl 15_412.pl
[a c e g i k m o q s u w y]
2019/09/12(木) 00:37:35.06ID:zD/2/X2z
>>412
common lisp
(loop for i in '(1 2 3 4 5) for j from 1 when (eql 1 (mod j 2)) collect i)
(1 3 5)
418デフォルトの名無しさん
垢版 |
2019/09/12(木) 02:26:36.91ID:IEWaKNAx
>>400
Kotlin
https://paiza.io/projects/nJNQpKN19OL_9d7CTfXDrw
2019/09/12(木) 09:48:36.52ID:XoEd0LBY
>>412 Ruby

p [1, 2, 3, 4, 5].each_slice(2).map(&:first)

# => [1, 3, 5]
420デフォルトの名無しさん
垢版 |
2019/09/12(木) 11:37:50.98ID:Cxpf63qu
>>412 JavaScript
[1, 2, 3, 4, 5].filter((val, idx) => (idx + 1) % 2)
//=> [1, 3, 5]
421デフォルトの名無しさん
垢版 |
2019/09/12(木) 18:13:32.79ID:sKYe7PWn
>>412
Kotlin
https://paiza.io/projects/O23Txsw6XtcwKDgOCmT86w
2019/09/12(木) 18:34:25.79ID:u0+zztnJ
>>412
https://ideone.com/leynnQ
C++。こんな感じで。
423デフォルトの名無しさん
垢版 |
2019/09/12(木) 21:30:23.66ID:+vUO8BYK
>>373 J
f =: 2 & (-~/\)

f 3 1 4 1 5 9 2 6 5
_2 3 _3 4 4 _7 4 _1


>>412 J
f =: _2 & ([/\)

f 1 2 3 4 5
1 3 5
424デフォルトの名無しさん
垢版 |
2019/09/12(木) 21:33:45.75ID:cqw0/uFd
さすがJ
サッパリ分からん
425デフォルトの名無しさん
垢版 |
2019/09/13(金) 00:40:21.67ID:6zSQdjjj
>>412
せめて、リストの中身は順番と関係無い内容の方が。。。
(例えば"abcde"とか)

Haskell

main = (print.oddlist) [1..5]

oddlist xs = [x | (x,y) <- zip xs [1..], odd y]
2019/09/13(金) 02:03:47.81ID:qdoB8RTo
お題：辞書型クリプタを実装せよ。
私の実装： https://ideone.com/cjGdvA

貴方はどう書く？
427デフォルトの名無しさん
垢版 |
2019/09/13(金) 13:13:33.48ID:zfsxzWX8
>>412 Tcl
set x {1 2 3 4 5}
set r {}
foreach {a b} $x {set r [concat $r $a]}
puts $r

実行結果
1 3 5
2019/09/13(金) 21:31:55.35ID:5n7mddvT
>>427
> foreach {a b}

こんなオサレな書き方で二個処理できるのすごい
429デフォルトの名無しさん
垢版 |
2019/09/13(金) 21:37:33.86ID:sQZEDK+j
tcl/tkで「tk部分ははいいがtclがクソ」みたいなのよく見た気がするんだけど、あれどういうとこが根拠なん？
2019/09/14(土) 04:14:12.84ID:x5aQTHnU
お題: すべての人民は和平のために火急的に速やかに自己の復元を実現しなければならない。
431デフォルトの名無しさん
垢版 |
2019/09/14(土) 04:28:39.19ID:BS6VTuNp
>>412 Io
a := list(1, 2, 3, 4, 5)
a select(i, v, i isEven) println

実行結果
list(1, 3, 5)
432デフォルトの名無しさん
垢版 |
2019/09/14(土) 07:49:29.90ID:/8qdS/t9
>>419

>>420

スレ違いだし、関数型言語だけが再利用性が高いとは言わないけど、
仮にoddlistがリストに対して良く使われる処理なら

[1,2,3,4,5].oddlist()

とか使いたいよね？
確かRubyはそう言う基本クラスにメソッド追加出来たと思うけど(うろ覚え)、
それをライブラリにして公開したいとする。

そうなると名前の競合とか起こり得るので

import mylib

[1,2,3,4,5].mylib.oddlist()

としたいとか、ならないだろうか。

変数と関数は別が良いって思った。

(議論の流れになるなら、別スレに誘導してね)
2019/09/14(土) 08:17:19.38ID:G26P45sA
>>412 Python

print([ i for i in range(1,6,2) ])
# [1, 3, 5]
2019/09/14(土) 08:24:26.09ID:Hd+E1riT
>>429
スレチだが教えてやる
数字が文字列として扱われて実行時にパースされるから馬鹿みたいに遅いことだ
2019/09/14(土) 08:30:44.01ID:G26P45sA
>>412 Python a~f

print( ['a','b','c','d','e'][::2] )
# ['a', 'c', 'e']
436デフォルトの名無しさん
垢版 |
2019/09/14(土) 19:11:38.33ID:Rj/aIpzV
>>426
クリプタって何？
437デフォルトの名無しさん
垢版 |
2019/09/14(土) 19:29:31.44ID:daGZRaa0
ザラキ唱える人じゃないか
2019/09/14(土) 19:57:54.64ID:oc39AgJX
>>436
Crypter.

Crypt + er.
2019/09/14(土) 20:22:44.80ID:x5aQTHnU
>>437
それはクリフト
440デフォルトの名無しさん
垢版 |
2019/09/14(土) 21:03:45.14ID:KmV3vhTN
cryptoなんだからcryptorじゃないの？
2019/09/14(土) 21:19:35.56ID:0f+SL6BM
それをゆうなら、encrypterの方が自然じゃん。
2019/09/14(土) 22:06:47.02ID:31y0+jF3
でも、それをいうならの方が自然かも
2019/09/14(土) 22:21:17.26ID:oc39AgJX
EnCrypterか。了解。
忘れたらごめんなさい。
2019/09/14(土) 22:23:04.61ID:pQ8OW4Ak
EnCrypterはおかしい
Encryperでいい
2019/09/14(土) 22:23:28.79ID:pQ8OW4Ak
tが抜けた
446デフォルトの名無しさん
垢版 |
2019/09/14(土) 22:26:10.43ID:hhxdRhHk
EmScriptEn
2019/09/14(土) 22:35:29.16ID:oc39AgJX
>>444
なんか癖になってるんだ。
小学校から英語やってるわけじゃないからなぁ・・・。
2019/09/14(土) 23:35:07.41ID:1m2PUwRG
>>432
釈迦に説法は空しいし恥ずかしいのでやめよう
どう考えてもおまいより>>419のほうが力量が上
議論の余地は無いので安心していい
2019/09/15(日) 10:23:47.74ID:4T3I9hnw
>>426 Perl 5.30

# -*- coding: utf-8 -*-
no warnings 'experimental::signatures';
use feature qw(say signatures); # lexical_subs);
sub ReversibleHash_Encode($S, $C) {
　@a = unpack 'C*', $S;
　$l = @c = split '', $C;
　my $o; ++$o while $l**$o < 256; #my $o = 1 + log(256)/log $l;
　use integer;
　my sub _enc($i) { join '', reverse map{($i, $m) = ($i/$l, $i%$l); $c[$m]} 1..$o }
　%e = map{$_ => '%'._enc $_} 0..255;
　join '', map{$e{$_}} @a;
}
sub ReversibleHash_Decode($S, $C) {
　@s = $S =~ /(%\w+)/g;
　%d = map{$e{$_} => $_ } keys %e;
　pack 'C*', map{$d{$_}} @s;
}
say $t = ReversibleHash_Encode 'ウィキペディア', '0123456789';
say $s = ReversibleHash_Decode $t, '0123456789';
$Ch = "abcdefghijklnmopqrstuvwxyz0123456789";
say $t = ReversibleHash_Encode $s, $Ch;
say $s = ReversibleHash_Decode $t, $Ch;


実行結果
~ $ perl 15_426.pl
%227%130%166%227%130%163%227%130%173%227%131%154%227%131%135%227%130%163%227%130%162
ウィキペディア
%gl%dw%ew%gl%dw%et%gl%dw%e3%gl%dx%ek%gl%dx%d1%gl%dw%et%gl%dw%es
ウィキペディア
2019/09/15(日) 10:37:25.58ID:Pt8t6mL1
zipとunzip関数があるからそれで偶数と奇数に分ければいい
2019/09/15(日) 11:42:49.90ID:4T3I9hnw
>>412 Prl5 (≦5.28)、配列の添字を0始まり以外にする$[ (array_base feature)を使用

$[ = 1;
@a = a..z;
@x = grep{$_ & 1} 1..@a;
@b = @a[@x];
print "@b\n";


実行結果
~ $ perl 15_412_array_base.pl
a c e g i k m o q s u w y


※5.12〜5.28では$[は非推奨になり、設定すると
Use of assignment to $[ is deprecated at 15_412_2.pl line 1.
というwarningが出ます、5.30からは$[の設定できなくなりました
452デフォルトの名無しさん
垢版 |
2019/09/15(日) 15:11:01.79ID:G44yhCx+
>>412 R
要素が 奇数個だとワーニングが出ちゃうけど

a<-1:9
print(matrix(a,2)[1,])
453デフォルトの名無しさん
垢版 |
2019/09/15(日) 15:41:23.29ID:5s85lzPu
鰐んぐ
魚にんぐ
2019/09/15(日) 16:31:54.72ID:vhYJbDpr
>>449
実行はしてないが、成果については「GJ!!」だ！
2019/09/16(月) 04:35:46.66ID:NOoJUh0d
お題: 文字列が渡されるので文字vの左隣の文字を小文字、右隣の文字を大文字に変換しなさい
2019/09/16(月) 06:10:07.69ID:VWND3fAL
>>455
"avbvc" の結果を教えてくれ
2019/09/16(月) 08:35:06.75ID:NOoJUh0d
>>456
その場合はvに挟まれた文字をxに変換してください
2019/09/16(月) 08:42:47.33ID:3bKCxc1X
>>457
"avvb" の結果を教えてくれ
2019/09/16(月) 11:06:17.48ID:uJI/7eR2
頭悪そうなお題はパスで
460デフォルトの名無しさん
垢版 |
2019/09/16(月) 15:26:20.20ID:eLMc9ESO
お題:１から１００までの自然数がある。ランダムに30個抜き出せ。
2019/09/16(月) 15:30:00.20ID:4Q9Ti1cA
>>460 Ruby

p [*1..100].sample(30)

# => [13, 29, 96, 79, 78, 17, 89, 88, 69, 51, 44, 16, 54, 62,
47, 19, 45, 26, 43, 40, 91, 32, 30, 86, 84, 85, 15, 6, 41, 95]
462デフォルトの名無しさん
垢版 |
2019/09/16(月) 16:08:30.72ID:ShPpQTCq
>>460
Kotlin script

println((1..100).toMutableList().apply {shuffle()}.slice(0..29).joinToString())
2019/09/16(月) 16:53:32.17ID:P3J/MfSa
>>460 Perl5、※選択に重複がないようにした

@a = 1..100;
use List::Util shuffle;
@b = (shuffle @a)[0..29];
print "@b\n";


実行結果
~ $ perl 15_460.pl
64 90 99 41 46 11 25 23 2 12 43 42 24 96 59 44 19 7 92 47 15 86 84 68 13 100 76 34 87 9
464デフォルトの名無しさん
垢版 |
2019/09/16(月) 16:59:32.09ID:ZgnCsjLO
>>460 J
(30?100) { >: i. 100
465デフォルトの名無しさん
垢版 |
2019/09/16(月) 17:36:43.98ID:enU8we0d
>>464
なるほど全然わからん
2019/09/16(月) 20:23:01.84ID:LKlzCOg4
>>460 Pharo/Squeak Smalltalk

(1 to: 100) asArray shuffled first: 30
467デフォルトの名無しさん
垢版 |
2019/09/17(火) 17:37:59.85ID:IoM9hprN
プログラム言語標準の文字列(e.g. java.lang.String) が与えられ、ランレングス圧縮した結果をプログラム言語標準の文字列で返す関数を作成してください。ただし、入力に数字が入っていた場合のケースは考慮しなくても構いません。
テストケース(関数名 = f)
f("あいうえお") -> "あいうえお"
f("ああいいうう") -> "あ2い2う2"
f("あいうあいう") -> "あいうあいう"
2019/09/17(火) 18:15:13.62ID:kyKgfAv0
あうあうあー -> あうあうあー
ああああ -> あ4
2019/09/17(火) 18:37:25.07ID:IoM9hprN
そゆこと
2019/09/17(火) 19:42:43.30ID:N7hzq5cx
python に あ2い2う2
のようにカウンティング結果を含んだリストを返すライブラリが
はいっていたな
2019/09/17(火) 21:40:53.07ID:nuFS/S7T
>>467
haskellだよー

join.map ((:).head <*> (bool "".show.length <*> (1 <).length)).group
472デフォルトの名無しさん
垢版 |
2019/09/17(火) 21:47:22.78ID:s7WBnLNZ
>>467 JavaScript
const f = s => [...s]
.reduce((acc, ch) => {
const [lastCh, n = 1] = acc.pop() || [];
if (!lastCh) return [[ch]];
if (lastCh == ch) {
return [...acc, [lastCh, n + 1]];
} else {
return [...acc, [lastCh, n == 1 ? '' : n], [ch]];
}
}, [])
.flat(Infinity)
.join``;
2019/09/17(火) 23:32:50.16ID:htBCID9n
>>467 Perl5

use utf8;
binmode STDOUT, ':encoding(utf-8)';
for (qw{あいうえお ああいいうう あいうあいう あうあうあー ああああ}) {
　my $s;
　while (/((.)\g-1*)/g) {
　　$s .= $2;
　　$s .= $l if 1 < ($l = length $1);
　}
　print "$s\n";
}


実行結果
~ $ perl 15_467.pl
あいうえお
あ2い2う2
あいうあいう
あうあうあー
あ4
2019/09/17(火) 23:58:08.34ID:htBCID9n
>>467 Perl5、しくった、お題は「関数を作れ」だった…orz

use utf8;
binmode STDOUT, ':encoding(utf-8)';
sub f {
　my $s;
　while (/((.)\g-1*)/g) {
　　$s .= $2;
　　$s .= $l if 1 < ($l = length $1);
　}
　$s
}
for (qw{あいうえお ああいいうう あいうあいう あうあうあー ああああ}) {
　print f($_)."\n";
}


~ $ perl 15_467_f.pl
あいうえお
あ2い2う2
あいうあいう
あうあうあー
あ4
2019/09/18(水) 10:00:45.90ID:Qm7jF2Kv
>>467 Ruby

f = -> s {s.gsub(/(.)\1+/){[$1, $&.size].join}}

%w[あいうえお ああいいうう あいうあいう あうあうあー ああああ].each{|s| puts [s, f[s]].join(' => ')}
# =>
あいうえお => あいうえお
ああいいうう => あ2い2う2
あいうあいう => あいうあいう
あうあうあー => あうあうあー
ああああ => あ4
2019/09/18(水) 10:37:56.54ID:Qm7jF2Kv
>>432 Ruby

module Hoge
　　refine Array do
　　　　def oddlist
　　　　　　select.with_index{|s, i| i.odd?}
　　　　end
　　end
end

class C1
　　p [0, 1, 2, 3, 4].oddlist rescue p$!
　　# => #<NoMethodError: undefined method `oddlist' for []:Array>
end

class C2
　　using Hoge
　　p [0, 1, 2, 3, 4].oddlist
　　# => [1, 3]
end
2019/09/18(水) 15:45:23.52ID:GIOjMe2C
>>467
https://ideone.com/3jC9wU
C++。いい感じにかけた。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況