[過去ﾛｸﾞ] プログラミングのお題スレ Part20 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
14: 2021/06/23(水)00:49:21.38 ID:1nP79viV(1) AAS
>>9
haskell
iimport Data.List
splitSet = transpose . group . sort
main = print $ splitSet $ "bdecbaadda"
----
["abcde","abd","ad"]
103(7): 2021/08/12(木)09:29:17.38 ID:GeyAERvY(1) AAS
お題
文字列を入力として受け取って
入力された文字列と、入力された文字列を逆順にした文字列を
1文字ずつ交互に結合した文字列を出力してください
入力： abcde
出力： aebdccdbea
233: 2021/09/29(水)19:41:42.38 ID:p1B8H211(3/3) AAS
>>225
Kotlin
外部ﾘﾝｸ:paiza.io
吹き出し部分を半角文字に変えてみたんだけどね。あまり意味ないか。
434: 2021/11/12(金)22:31:42.38 ID:M7lyd7nj(1/2) AAS
Ruby では、文字列の中から、URL を抜き出す関数が非推奨になった。
頻繁に規格が変わるからかな？
正規表現でも多分、何万行も掛かる。
作るのに10年ぐらい掛かるので、誰も作らない
今あるものでも、正しく判定されるかどうか、分からない
520: 2022/01/09(日)21:50:51.38 ID:sZC3oXej(1) AAS
なんか変なこと書いた
res' = floor( log x / log2 )
if 2^res' < x
then res = res' + 1
else res = res'
やな
res'の算出で丸め誤差は-1までと仮定して補正する
しかしもちろんlog(x)とか2^nハード的にFPUとかで高速にやってくれてしかも整数演算は誤差なしでやってくれる前提
この辺は高級言語プログラマレベルの話でなんとかなるもんではない
やるならアセンブリ言語レベルでやるしかない
678(3): 2022/08/14(日)21:45:18.38 ID:b/j10zkL(1) AAS
(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のひとつだけ
省1
729(1): 2022/08/21(日)20:19:09.38 ID:/7u80ZfN(1) AAS
>>724 c
外部ﾘﾝｸ:ideone.com
774: 2022/09/15(木)05:31:46.38 ID:LgD4XKTt(1) AAS
//>>772 JavaScript
function _772(epoch) {
/**/epoch = BigInt(epoch);if (epoch < 0n) {throw new RangeError('');}
/**/const lastDateOfMonth = (_ => Object.fromEntries(Array.from([, , , ..._.slice(2), _[0], _[1]].entries()).filter(([, v]) => v)))(Array.from(new Array(12).keys()).map(m => BigInt(new Date(2_022, m + 1, 0, 0, 0 - new Date().getTimezoneOffset()).getDate())));
/**/const FAIRFIELD = fairfield(1_969n, 12n, 31n) + epoch / 86_400n + 1n;
/**/let [Y, M, D] = [1_969n, 13n, 1n];
/**/for (; D <= 58n; D++) {if (FAIRFIELD == fairfield(Y, M, D)) {return {Y: 1_970n, M: 1n + D / 31n, D: D % 31n};}}
/**/for (Y = 1_970n; Y <= Number.MAX_SAFE_INTEGER; Y++) {
/**//**/for (M = 3n, D = 1n; D <= 366n; D++) {
/**//**//**/if (FAIRFIELD == fairfield(Y, M, D)) {
省16
816: 2022/10/24(月)13:32:21.38 ID:LLDppSf/(1) AAS
>>815
バグってるぞ
65分だと99枚しか印刷されない
837: 2022/10/26(水)18:20:40.38 ID:S3XzLK/s(1) AAS
このタイプの論理問題ってよく見かけるな
初出ってどこなんだろうな
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.258s*