「大事なのは進むこと」、モナーク: レガシー・オブ・モンスターのエピソード6の女性ハッカー(メイ)が女性主人公(ランダの娘、ケイト)に掛けた言葉。大谷翔平のドジャース入団の中國新聞の見出し「常に挑戦」と重なる。アメリカ的精神と言えるのかもしれないが、大切なことだと、今頃というか、ここ数年の間に思いとして浮かび上がり、強い確信となっている。米国製ゴジラ映画にモナーク(Monarch)という組織名が出てきたのは、最近、Prime Videoで見た「ゴジラ VS. コング」の特務機関モナークが最初だが、その性格は今のところだいぶ異なる。
10 REM anagrams
20 INPUT L$(1),L$(2),L$(3),L$(4)
30 PRINT
40 FOR I=1 TO 4
50 FOR I2=1 TO 4
60 FOR I3=1 TO 4
70 IF I3=I2 THEN 120
80 FOR I4=1 TO 4
90 IF I4=I3 THEN 150
100 LET L$(1)=L$(1)+L$(2)+L$(3)+L$(4)
110 PRINT L$(1)
120 NEXT I4
130 NEXT I3
140 NEXT I2
150 NEXT I
→{追記: あれ、読み取れていないのか。}
sub anagrams {
my @letters = @_;
for my $i (0..3) {
for my $i2 (0..3) {
next if $i2 == $i;
for my $i3 (0..3) {
next if $i3 == $i2 || $i3 == $i;
for my $i4 (0..3) {
next if $i4 == $i3 || $i4 == $i2 || $i4 == $i;
my $word = join('', $letters[$i], $letters[$i2], $letters[$i3], $letters[$i4]);
print "$word\n";
}
}
}
}
}
anagrams('L1', 'L2', 'L3', 'L4');
見事に動く。Perlのほうは。ただBASICのほうは、PC-BASIC(PC-BASIC)で動かすとエラーになる。「NEXT without FOR in 120」、僕もそう思うね。
10 REM anagrams
20 INPUT L$(1),L$(2),L$(3),L$(4)
30 PRINT
40 FOR I1=1 TO 4
50 FOR I2=1 TO 4
60 IF I2=I1 THEN 130
70 FOR I3=1 TO 4
80 IF I3=I1 THEN 120
90 IF I3=I2 THEN 120
100 LET I4 = 10 - (I1 + I2 + I3)
110 LPRINT L$(I1);L$(I2);L$(I3);L$(I4)
120 NEXT I3
130 NEXT I2
140 NEXT I1
150 END
ついでに、Bardも試した。Gemini(Google Japan Blog: 最大かつ高性能 AI モデル、Gemini を発表 - AI をすべての人にとってより役立つものに)との連携はまだなのか、入力インターフェースはあるものの、画像ファイルからのプログラムの読み取りはできなかった。Google Documentsで開く方法({村上の世間話 3 (2023/09/29)}←)も使えなくなったみたい(→{後記: マイドライブからは使えないみたい。ホームから使えた。行番号がプログラム行から離れる場合、カンマとセミコロンが抜ける場合、「I」と「1」の区別ができない場合がある}{再後記: 昨日、マイドライブから使えるようになったことを確認。})。取り合えず、上記の「フーコーの振り子」に書かれているBASICプログラムを入力すると、次のPerlプログラムが返った。
#!/usr/bin/perl
use strict;
use warnings;
my @letters = qw( L1 L2 L3 L4 );
my $permutation_count = 0;
for (my $i1 = 0; $i1 <= 3; $i1++) {
for (my $i2 = 0; $i2 <= 3; $i2++) {
next if $i1 == $i2;
for (my $i3 = 0; $i3 <= 3; $i3++) {
next if $i3 == $i1 || $i3 == $i2;
my $i4 = 10 - ($i1 + $i2 + $i3);
print join("", @letters[$i1], $letters[$i2], $letters[$i3], $letters[$i4]), "\n";
$permutation_count++;
}
}
}
print "Total permutations: $permutation_count\n";
use strict;
use warnings;
print "Enter four letters: ";
chomp(my $letters = <STDIN>);
my @letters = split //, $letters;
for my $i1 (0..3) {
for my $i2 (0..3) {
next if $i2 == $i1;
for my $i3 (0..3) {
next if $i3 == $i1 || $i3 == $i2;
my $i4 = 10 - ($i1 + $i2 + $i3);
print "$letters[$i1]$letters[$i2]$letters[$i3]$letters[$i4]\n";
}
}
}
use strict;
use warnings;
print "Enter four letters: ";
chomp(my $letters = <STDIN>);
my @letters = split //, $letters;
for my $i1 (1..4) {
for my $i2 (1..4) {
next if $i2 == $i1;
for my $i3 (1..4) {
next if $i3 == $i1 || $i3 == $i2;
my $i4 = 10 - ($i1 + $i2 + $i3);
print "$letters[$i1-1]$letters[$i2-1]$letters[$i3-1]$letters[$i4-1]\n";
}
}
}
このプログラムが最もオリジナルのBASICプログラムの構成を踏襲している。
Revised anagrams Perl on Copilot/Bing at 2023-12-11
use strict;
use warnings;
print "Enter four letters: ";
chomp(my $letters = <STDIN>);
my @letters = split //, $letters;
for my $i1 (0..3) {
for my $i2 (0..3) {
next if $i2 == $i1;
for my $i3 (0..3) {
next if $i3 == $i1 || $i3 == $i2;
my $i4 = 6 - ($i1 + $i2 + $i3);
print "$letters[$i1]$letters[$i2]$letters[$i3]$letters[$i4]\n";
}
}
}
10 REM anagrams
20 INPUT L$(1),L$(2),L$(3),L$(4),L$(5),L$(6)
30 PRINT
40 FOR I1=1 TO 6
50 FOR I2=1 TO 6
60 IF I2=I1 THEN 240
70 FOR I3=1 TO 6
80 IF I3=I1 THEN 230
90 IF I3=I2 THEN 230
100 FOR I4=1 TO 6
110 IF I4=I1 THEN 220
120 IF I4=I2 THEN 220
130 IF I4=I3 THEN 220
140 FOR I5=1 TO 6
150 IF I5=I1 THEN 210
160 IF I5=I2 THEN 210
170 IF I5=I3 THEN 210
180 IF I5=I4 THEN 210
190 LET I6 = 21 - (I1 + I2 + I3 + I4 + I5)
200 PRINT L$(I1);L$(I2);L$(I3);L$(I4);L$(I5);L$(I6)
210 NEXT I5
220 NEXT I4
230 NEXT I3
240 NEXT I2
250 NEXT I1
260 END
def anagrams(strings):
"""
与えられた文字列から作成できるアナグラムをすべて出力する。
Args:
strings: アナグラムの元となる文字列の配列。
Returns:
アナグラムの配列。
"""
anagrams = []
for i in range(len(strings)):
for j in range(len(strings)):
if i != j:
for k in range(len(strings)):
if i != k and j != k:
for l in range(len(strings)):
if i != l and j != l and k != l:
anagrams.append(''.join(strings[i:j:k:l]))
return anagrams
strings = ['a', 'b', 'c', 'd']
print(anagrams(strings))
次のようにエラーとなる。
Python anagrams Bard code running on Windows console
動くように書き直す。
def anagrams(strings):
"""
与えられた文字列から作成できるアナグラムをすべて出力する。
Args:
strings: アナグラムの元となる文字列の配列。
Returns:
アナグラムの配列。
"""
anagrams = []
for i in range(len(strings)):
for j in range(len(strings)):
if i != j:
for k in range(len(strings)):
if i != k and j != k:
for l in range(len(strings)):
if i != l and j != l and k != l:
anagrams.append(strings[i] + strings[j] + strings[k] + strings[l])
return anagrams
strings = ['a', 'b', 'c', 'd']
print(anagrams(strings))
Modified Python anagrams Bard code running on Windows console
Pythonの場合、print文ではリスト・オブジェクトが出力されてしまう。さらに書き直す。
def anagrams(strings):
"""
与えられた文字列から作成できるアナグラムをすべて出力する。
Args:
strings: アナグラムの元となる文字列の配列。
Returns:
アナグラムの配列。
"""
import sys
stdout = sys.stdout
anagrams = []
for i in range(len(strings)):
for j in range(len(strings)):
if i != j:
for k in range(len(strings)):
if i != k and j != k:
for l in range(len(strings)):
if i != l and j != l and k != l:
stdout.write(strings[i] + strings[j] + strings[k] + strings[l] + '\n')
return anagrams
strings = ['a', 'b', 'c', 'd']
anagrams(strings)
これで、出力が現実的なものとなった。
Second Modified Python anagrams Bard code running on Windows console
