Latest comments for language 'なでしこ' on doukaku.org

99yen's comment on 島の数をカウントする

画像に変換して、塗っていってます。

map="□■■□
□□■□
□■□□
□■■□"
tmpとは配列
mapを改行で区切るを反復
    tmpの回数-1に(対象を文字列分解の表行列交換)を配列一括挿入
map_h=aで改行の出現回数+1
map_w=aから改行まで切り取るの文字数
island_black=0
island_white=0
島とはイメージ
島の高さはmap_h
島の幅はmap_w
Iで0からmap_h-1まで繰り返す
    Jで0からmap_w-1まで繰り返す
        もし、tmp[I,J]="■"ならば
            島のJ,Iへ黒色を点描画
Iで0からmap_h-1まで繰り返す
    Jで0からmap_w-1まで繰り返す
        島のJ,Iを点取得で条件分岐
            黒色ならば
                island_black=island_black+1
                島のJ,Iを緑色で塗る
            白色ならば
                island_white=island_white+1
                島のJ,Iを緑色で塗る
「黒い島は{island_black}個
白い島は{island_white}個」を言う

[ なでしこ ] [ download code ] ]

99yen's comment on 議席数をドント方式で

議席数をドント方式で (Nested Flatten)

ソートで。

定数=100
得票数="123,4,56,78"を","で区切る
定数で得票数をドント分配して表示

●ドント分配(定数で得票数を)
    TMPとは配列
    Iとは整数。Jとは整数
    RESULTとは配列
    (得票数の要素数)回、RESULT[回数-1]=0
    Iで1から定数まで繰り返す
        得票数を反復
            J=TMPの要素数
            TMP[J][0]=回数-1
            TMP[J][1]=対象/I
    TMPの1を表数値ソート
    IでJから(J+1-定数)まで繰り返す
        RESULT[TMP[I][0]]に1を直接足す
    RESULTで戻る

[ なでしこ ] [ download code ] ]

99yen's comment on 疑似並行処理

疑似並行処理 (Nested Flatten)

タイマーを使って。

I=0
A=0

数値タイマとはタイマー
これについて
    値は10
    時満ちた時は～
        もし(I<=10)ならば
            "{I} "を継続表示
            I=I+1
        違えば
            停止
    開始

英字タイマとはタイマー
これについて
    値は10
    時満ちた時は～
        もし(A<=10)ならば
            "{CHR(A+65)} "を継続表示
            A=A+1
        違えば
            停止
    開始

[ なでしこ ] [ download code ] ]

99yen's comment on '('と')'の対応

'('と')'の対応 (Nested Flatten)

"40CHR"とか書いてもCHRに40が行くようですが念のため

inputに「input.txt」を開く
START=40,CHR
END=41,CHR
cnt=0
inputを文字列分解して反復
    もし、対象=STARTならば
        cnt=cnt+1
    もし、対象=ENDならば
        cnt=cnt-1
    もし、cnt<0ならば
        抜ける
もし、cnt=0ならば
    「True」を表示
違えば
    「False」を表示

[ なでしこ ] [ download code ] ]

99yen's comment on 文字列の均等分割

文字列の均等分割 (Nested Flatten)

●分割(sをnで)
    aとは配列
    bとは整数=0
    cとは文字列
    (sの文字数)回
        a[b]=a[b]&"1"
        b=b+1
        もし、b=nならば、b=0
    aを反復
        c=c&MID(s,1,対象の文字数)&改行
        sの1から(対象の文字数)文字削除
    cで戻る

sample="ゆめよりもはかなき世のなかをなげきわびつゝあかしくらすほどに四月十よひにもなりぬれば木のしたくらがりもてゆく"
sampleを4で分割して表示

[ なでしこ ] [ download code ] ]

しらたま's comment on RFC 4180対応版 CSVレコードの分解

RFC 4180対応版 CSVレコードの分解 (Nested Flatten)

なでしこでは「CSV取得」命令で配列に変換できます。

「"aaa","b
bb","ccc",zzz,"y""Y""y",xxx」をCSV取得
反復
　反復
　　回数＆「 => 」＆対象を表示

[ なでしこ ] [ download code ] ]

99yen's comment on 倍数になる13進数

倍数になる13進数 (Nested Flatten)

iで10から10000まで繰り返す
    a=0;b=iを文字列分解
    jで(iの文字数-1)から0まで繰り返す
        a=a+b[回数-1]*13^j
    もし(a = i*2)ならば
        iを表示して抜ける

[ なでしこ ] [ download code ] ]

99yen's comment on LL Golf Hole 6 - 10進数を2進数に基数変換する

LL Golf Hole 6 - 10進数を2進数に基数変換する (Nested Flatten)

xとは整数
x=INT(尋ねる)
sとは配列
x<>0の間
    sにx%2を配列追加
    x=INT(x/2)
sを配列逆順して空で配列結合
それを表示

[ なでしこ ] [ download code ] ]

99yen's comment on LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする

LL Golf Hole 2 - 文字列に含まれる単語の最初の文字を大文字にする (Nested Flatten)

愚直に

S="LL day and night"
f=1;t=""
Sを文字列分解して反復
    もし(f=1)ならば
        t=t&大文字変換(対象)
        f=0
    違えば
        もし(対象=" ")ならば
            f=1
        t=t&対象
tを表示

[ なでしこ ] [ download code ] ]

99yen's comment on 漢数字で九九の表

漢数字で九九の表 (Nested Flatten)

日本語プログラミング言語ですが、特段漢字に強いわけではないので、普通に・・・(^ ^;

●数値化(sを)～kのsを配列検索
k="〇,一,二,三,四,五,六,七,八,九"を","で区切る
一="一"を数値化。九="九"を数値化。六="六"を数値化
aで一から九まで繰り返す
    bで一から九まで繰り返す
        c=""
        (a*b)を文字列分解して反復
            c=c&k[対象]
        cを六で文字列右寄せして継続表示
    改行を継続表示

[ なでしこ ] [ download code ] ]

しらたま's comment on LL Golf Hole 8 - 横向きのピラミッドを作る

LL Golf Hole 8 - 横向きのピラミッドを作る (Nested Flatten)

改行込み72バイト

1
2
3

N=尋;(N=0)なら終
N 回 M=回数-1;A\M=ﾘﾌﾚｲﾝ("*",M+1);A[N*2-2-M]=_
Aを表示

[ なでしこ ] [ download code ] ]

99yen's comment on コラッツ・角谷の問題

コラッツ・角谷の問題 (Nested Flatten)

なでしこでナイーブに。Athlon64 X2 3600+ 1.9GHz*2、2GBで25分かかりました。ループは苦手なようです。。。

MAX_N=0
MAX_F=0
Iで1から2^20まで繰り返す
    N=I;STEP=0
    N<>1の間
        STEP=STEP+1
        もし(N%2=0)ならば、N=N/2
        違えば、N=N*3+1
    もし、STEP>MAX_Fならば
        MAX_F=STEP
        MAX_N=I
「f(n)が最高になるときのnは{MAX_N}、f(n)は{MAX_F}」を表示

[ なでしこ ] [ download code ] ]

mr's comment on 小町算

小町算 (Nested Flatten)

※【なでしこ実行モード】cnako

候補[0]に「」を代入する
候補[1]に「+」を代入する
候補[2]に「-」を代入する
候補[3]に「*」を代入する
候補[4]に「/」を代入する

発見数に0を代入する

枠1で0から4まで繰り返す
  枠2で0から4まで繰り返す
    枠3で0から4まで繰り返す
      枠4で0から4まで繰り返す
        枠5で0から4まで繰り返す
          枠6で0から4まで繰り返す
            枠7で0から4まで繰り返す
              枠8で0から4まで繰り返す
                計算式に「1{候補[枠1]}2{候補[枠2]}3{候補[枠3]}4{候補[枠4]}5{候補[枠5]}6{候補[枠6]}7{候補[枠7]}8{候補[枠8]}9」を代入する
                計算式でナデシコする
                もし、それが100ならば
                  発見数に1を直接足す
                  「{発見数}. {計算式} = 100」と表示

「{改行}全部で{発見数}コありました！」と表示

[ なでしこ ] [ download code ] ]

99yen's comment on π

π (Nested Flatten)

１万回ループの無限級数(1-1/3+1/5-1/7…)で三桁の精度です。

# 組み込みPI
PIを表示

# 無限級数
a=1
nで1から10000まで繰り返す
    a=a+(-1^n)*(1/(2*n+1))
a*4を表示

# モンテカルロ法
t=10000
m=10000
a=0
nで0からtまで繰り返す
    もし(HYPOT(mの乱数/m,mの乱数/m))<1ならば
        a=a+1
a*4/tを表示

[ なでしこ ] [ download code ] ]

99yen's comment on タブ区切りデータの処理

タブ区切りデータの処理 (Nested Flatten)

なでしこで、手順に忠実に書いてみました。

input="ID    Surname    Forename    Age
1    Sato    Hanako    17
0    Suzuki    Taro    18"

data=inputをTSV取得
# ヘッダを切り取る
head=dataの0を配列切り取る

# 第1カラムでソート
dataの0を表数値ソート
# 第2カラムと第3カラムを入れ替え
data=dataの1と2を表列入替
# ヘッダも入れ替え
head=headの1と2を配列入替
# 第4カラムに1を加算
Iで0から(dataの配列要素数-1)まで繰り返す
    data[I][3]=data[I][3]+1
# ヘッダとデータを結合
output=(headの表行列交換)にdataを表追加
# 結果を表示
outputを表TSV変換して表示

●配列入替(AのXとYを)
    AのXにA[Y]を配列挿入
    AのY+1を配列削除
    Aで戻る

●表列入替(AのXとYを)
    AのYを表列取得
    AのXにそれを表列挿入
    それのY+1を表列削除
    それで戻る

●表追加(AにBを)
    Aの(Aの配列要素数)にBを配列一括挿入
    Aで戻る

[ なでしこ ] [ download code ] ]

99yen's comment on 2^i * 3^j * 5^k なる整数

2^i * 3^j * 5^k なる整数 (Nested Flatten)

#7639を参考に移植。for文がないのがきつい・・・

limit=100
n=0
i=1
(n<limit)の間
    tmp=i
    (tmp%2=0)の間,tmp=tmp/2
    (tmp%3=0)の間,tmp=tmp/3
    (tmp%5=0)の間,tmp=tmp/5
    もし(tmp=1)ならば
        iを表示
        n=n+1
    i=i+1

[ なでしこ ] [ download code ] ]

99yen's comment on 文字列型日時ののN秒後時間取得

文字列型日時ののN秒後時間取得 (Nested Flatten)

なでしこで。下の二つの関数はほかから流用です。

DateEx("2008/08/27 23:59:25",40)を表示
DateEx("2008/08/27",40)を表示

●DateEx(str,n)
    dateとは配列=区切(str," ")
    もし(date[1]="")ならば、date[1]=今
    配列結合(UNIX2date(date2UNIX(date,0)+n)," ")
●date2UNIX(date,tzd)
    戻(日数差("1970/1/1",date[0])*(60*60*24)+秒差("0:0:0",date[1])+tzd)
●UNIX2date(unix)
    tmpとは配列
    dayとは整数=unix/86400%86400
    unix=unix-day*86400
    tmp[0]=日付加算("1970/1/1","//{day}")
    tmp[1]="{ゼロ埋め(unix/3600%24,2)}:{ゼロ埋め(unix/60%60,2)}:{ゼロ埋め(unix%60,2)}"
    tmpで戻る

[ なでしこ ] [ download code ] ]

99yen's comment on LL Golf Hole 7 - バイト数を読みやすくする

LL Golf Hole 7 - バイト数を読みやすくする (Nested Flatten)

日本語言語なのに、ぜんぜん日本語っぽい投稿をしてないなと思ったので、少々長くなりますがあえて。

「バイト数を入力してください」と尋ねて入力に代入
単位は「{改行}k{改行}M{改行}G{改行}T」
カウンタは0
入力が1024以上の間
    入力を1024で直接割る
    カウンタに1を直接足す
入力を1で小数点四捨五入
それ&単位[カウンタ]を表示

[ なでしこ ] [ download code ] ]

99yen's comment on LL Golf Hole 5 - 最上位の桁を数え上げる

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

正規表現をお借りして、43バイト。

1	iで0から尋(i)まで繰返,RE(i,"^.0*$")なら表示

[ なでしこ ] [ download code ] ]

99yen's comment on LL Golf Hole 3 - 13日の金曜日を数え上げる

LL Golf Hole 3 - 13日の金曜日を数え上げる (Nested Flatten)

なでしこで。

C=0;D="{今年}/{今月}/13"
もし(MID(今日,9,2)>13)ならば
    D=Dに"/1/"を日付加算
(D<>"2014/01/13")の間
    もし(Dの曜日="金")ならば
        C=C+1
    D=Dに"/1/"を日付加算
Cを表示

[ なでしこ ] [ download code ] ]