NackWorld Powered by FTTH [日記] - ブラウザ表示

我他彼此な日常に関する雑記(日記)

先月
目次
来月
最新版
トップ

2006年6月12日(月) Age++
いろいろあって放置プレイ継続中です(笑)
#鯖移転の話が出てたりとかしてちょっといろいろ検討中で。

半年の間にいろいろありましたがーそのうちぼちぼち書いていければなぁとか思ってます。m(_ _)m
2006年6月29日(木) もはや遅きですが
  • はやませんせーの所で知ったキミならどう書く 2.0 - 100までの整数から素数を列挙せよL.L.Ring
    …コードは書いていたのだけれど日記に書くヒマ無かったので、遅ればせながら晒してみるテスト。
    (Win2Kのコマンドプロンプト上で確認しました。画面は後ほど上げます)


    @echo off

    IF NOT "%1"=="" GOTO %1
    CMD /V /C %0 MAINSTEP
    GOTO EOF

    :MAINSTEP
    SET sosuu=
    FOR /L %%a IN (1,1,100) DO ( SET num=%%a & CALL :IDENTIFY)
    ECHO %sosuu%
    GOTO EOF

    :IDENTIFY
    SET yakusuu=0
    SET amari=0
    FOR /L %%j IN (1,1,%num%) DO ( SET /A amari=%num%%%%%j & IF !amari!==0 SET /A yakusuu=!yakusuu!+1 )
    IF %yakusuu%==2 SET sosuu=%sosuu%%num%
    GOTO EOF

    :EOF




    #ってーかコレ、言語って何と言えばいいんだろ…コマンドプロンプト言語!?(汗)

先月
目次
来月
最新版
トップ

nack@be.to

Akiary v.0.42