第64回【Python】場所取り

2023年5月29日

現在取り組んでいるのは、paiza ラーニング問題集「配列活用メニュー」になります。

プログラミング入門に最適！初心者でも楽しく学べる動画学習サービス【paizaラーニン

paizaラーニングはプログラミング初心者のための動画学習サービスです。1回3分の分かりやすい動画と演 ...

 https://paiza.jp/works

はじめに

猫とキャンプと野球観戦と AWS が大好きな旦那、LeoSaki です。モフモフしたい。

Python をゼロから勉強してみよう、のコーナー 64 回目です。

深夜や明け方に緊急の電話がかかってきて起こされることがあります。一応、責任者ではあるため、仕方ないと諦めているのですが、寝不足がダイレクトに体調に影響するようになりました。年は取りたくないものです。

それでは、今日も頑張ってみようと思います。

場所取り

場所取り | レベルアップ問題集 | プログラミング学習サイト【paizaラーニング】

問題を解いてスキルアップ！みんなも一緒に解いてみよう！

 https://paiza.jp/works/mondai/array_utilization_primer/array...

2
3

N K F
A_1
...
A_K

5 10 1
1
4
4
3
5
4
2
4
1
1

こんなお店嫌だなぁ。なんで中途半端にブルーシートを撤去しちゃったんだろう。ブルーシートで場所取りするのがダメなら、全部撤去しちゃえばいいのに。ブルーシートが撤去された人はおとなしく帰るんだ。ごねて喧嘩になりそうなもんだけど。

Python

N,K,F = map(int,input().split())
A = [int(input()) for _ in range(K)]
A = A[F:]
sortedA = sorted(set(A),key=A.index)
for a in sortedA:
    print(a)

VBA

NKF = Split(Cells(1, 1), " ")
N = Val(NKF(0))
K = Val(NKF(1))
F = Val(NKF(2))
Dim A() As Integer
ReDim A(K - 1)
For i = 0 To K - 1
    A(i) = Cells(i + 2, 1)
Next
For i = 0 To K - F - 1
    A(i) = A(i + F)
Next
ReDim Preserve A(K - F - 1)
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For Each temp In A
    If Not dic.exists(temp) Then
        dic.Add temp, temp
    End If
Next
ReDim Preserve A(dic.Count - 1)
keys = dic.keys
For i = 0 To dic.Count - 1
    A(i) = keys(i)
Next
For Each v In A
    Debug.Print v
Next

最後に

ここまで学習してきたことを組み合わせればすぐに解答できる問題。実務で利用するってこういうことかなぁという気がしないでもない。応用力ってやつでしょうか。

それにしても、VBA で書くのはとても面倒だった。もっと良い方法はあるのかもしれないけど、LeoSaki（旦那）が知っている方法でベストなものを選んだつもり。

引き続き、よろしくお願いいたします！