Latest comments for language 'J' on doukaku.org

pooq's comment on '('と')'の対応

括弧の対応がとれている時に1を
そうでない場合は0を返します。

   paren_check '()'
1
   paren_check ')()'
0
   paren_check '()()'
1
   paren_check '(()())'
1
   paren_check '())(()'
0

1	paren_check=:3 :'*/0<:-/+/\"1 p E."0 1 y[p=.40 41{a.'

[ J ] [ download code ] ]

pooq's comment on 漢数字で九九の表

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

#7898を真似して桁ごとに置き換えるのではなく、数字をまるごと
置き換えるようにした。

a=.ucp'一二三四五六七八九'
b=.ucp'＠'
c=.ucp'〇'
;rows(*/~>:i.#a){,{b;(b,a);c,a

[ J ] [ download code ] ]

pooq's comment on 漢数字で九九の表

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

置換の部分を変えてみました。

＠＠一＠＠二＠＠三＠＠四＠＠五＠＠六＠＠七＠＠八＠＠九
＠＠二＠＠四＠＠六＠＠八＠一〇＠一二＠一四＠一六＠一八
＠＠三＠＠六＠＠九＠一二＠一五＠一八＠二一＠二四＠二七
＠＠四＠＠八＠一二＠一六＠二〇＠二四＠二八＠三二＠三六
＠＠五＠一〇＠一五＠二〇＠二五＠三〇＠三五＠四〇＠四五
＠＠六＠一二＠一八＠二四＠三〇＠三六＠四二＠四八＠五四
＠＠七＠一四＠二一＠二八＠三五＠四二＠四九＠五六＠六三
＠＠八＠一六＠二四＠三二＠四〇＠四八＠五六＠六四＠七二
＠＠九＠一八＠二七＠三六＠四五＠五四＠六三＠七二＠八一

1 2	t=:ucp'〇一二三四五六七八九' ;rows((-verb){.(ucp'＠＠'),[:{&t(#t)&#.inv)&.><"noun*/~>:i.<:#t

[ J ] [ download code ] ]

pooq's comment on 漢数字で九九の表

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

J言語での日本語の扱いがまだよくわかっていません。
これは、windows用GUI版の場合です。
最初に九九のテーブルをつくり、文字に変換してから
'0123456789'を'〇一二三四五六七八九'に置換しています。

load 'strings'
a=.(s=.verb+dyad)u:'〇一二三四五六七八九'
b=.;/adverb":i.#a  
c=.,(":*/~>:i.<:#a),.LF
c rplc (b,.;/a),' ';s u:'　'

[ J ] [ download code ] ]

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

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

   ]d=.;:;._2 data            レコードを改行で、カラムをタブで区切りboxに入れる。
+--+-------+--------+---+
|ID|Surname|Forename|Age|
+--+-------+--------+---+
|1 |Sato   |Hanako  |17 |
+--+-------+--------+---+
|0 |Suzuki |Taro    |18 |
+--+-------+--------+---+

   ]h=.0{d                    1行目をヘッダに。J言語ではリストやテーブルの
+--+-------+--------+---+     インデックスは0－オリジン。
|ID|Surname|Forename|Age|
+--+-------+--------+---+

   ]d=.}.d                    2行目からをデータに。
+-+------+------+--+
|1|Sato  |Hanako|17|
+-+------+------+--+
|0|Suzuki|Taro  |18|
+-+------+------+--+

   ]d=. d /: 0{"1 d           第1カラムの値でデータを昇順にソートする。
+-+------+------+--+
|0|Suzuki|Taro  |18|
+-+------+------+--+
|1|Sato  |Hanako|17|
+-+------+------+--+

   ]h=.0 2 1 3{ h           ヘッダの第2カラムと第3カラムを入れ替える。
+--+--------+-------+---+
|ID|Forename|Surname|Age|
+--+--------+-------+---+

   ]d=. 0 2 1 3 {"1 d         データの第2カラムと第3カラムを入れ替える。
+-+------+------+--+
|0|Taro  |Suzuki|18|
+-+------+------+--+
|1|Hanako|Sato  |17|
+-+------+------+--+

   ]d=.(":&>:&".&.>3{"1 d) 3}"0 1 d      第4カラムの値にそれぞれ1を加える。
+-+------+------+--+                     数値に変換して加算した後、文字列に戻す。
|0|Taro  |Suzuki|19|
+-+------+------+--+
|1|Hanako|Sato  |18|
+-+------+------+--+

   ]d=.h,d                       ヘッダとデータを連結。
+--+--------+--------+---+
|ID|Surname |Forename|Age|
+--+--------+--------+---+
|0 |Taro    |Suzuki  |19 |
+--+--------+--------+---+
|1 |Hanako  |Sato    |18 |
+--+--------+--------+---+

  ]d=.(,TAB&;)/"1 d　　　　　　　カラムを区切るタブを挿入。
+--+-+--------+-+-------+-+---+
|ID| |Forename| |Surname| |Age|
+--+-+--------+-+-------+-+---+
|0 | |Taro    | |Suzuki | |19 |
+--+-+--------+-+-------+-+---+
|1 | |Hanako  | |Sato   | |18 |
+--+-+--------+-+-------+-+---+
　　　　　　　　　　　　　　　　　最後にboxから取り出して出力。

data =. ;: ;._2 stdin''
header =. 0{data
data =. }.data
data =. data /: 0{"1 data
header =. 0 2 1 3{ header
data =. 0 2 1 3{"1 data
data =. (":&>:&".&.>3{"1 data) 3}"0 1 data
data =. header , data
wd&;"1 (, TAB&;)/"1 data

[ J ] [ download code ] ]

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

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

1 2 3 5 のリストを掛け合わせ uniq して、を繰り返す。
最後にソートして n 個とりだす。

1	wd"0(100){./:~~.,1 2 3 5*/^:10[1

[ J ] [ download code ] ]

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

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

関数に出力機能まで含めるとなんか使いにくそう。

   '2008 8 27 23 59 25' DateEx 40
2008 8 28 0 0 5

   '2008 8 27 23 59 25' DateEx _40
2008 8 27 23 58 45

   DateEx 100000000
2011 11 3 0 12 46.731

load 'dates'

now =: 6!:0

DateEx =: 3 : 0
(": now '') DateEx y
:
wd 1 tsrep (y * 1000) + tsrep ". x
)

[ J ] [ download code ] ]

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

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

データは引数で。
>jconsole LL8.ijs 4
*
**
***
****
***
**
*

1	exit wd/.'*'$~,~".>2{ARGV

[ J ] [ download code ] ]

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

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

データは標準入力から。
サンプルプログラムのように k=1000 で。
>echo 123|jconsole unit1.ijs
123

>echo 1234|jconsole unit1.ijs
1.2k

>echo 123456789|jconsole unit1.ijs
123.5M

>echo 12345678901234567|jconsole unit1.ijs
12345.7T

1	exit wd;(a<1e3){a;~(0j1":a%10^3b),(b=.((a=.x:".}:1!:1[3)>10^3i.5)i:1){' kMGT'

[ J ] [ download code ] ]

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

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

1	exit wd 1":#:".}:1!:1[3

[ J ] [ download code ] ]

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

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

データは標準入力から。

1	exit wd"0(a&>:#])0,,(10x^i.#":a=.".}:1!:1[3)*/>:i.9

[ J ] [ download code ] ]

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

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

フックとフォークを使うと頭くらくらしてくるけど、すこし縮んだ。

1	exit wd(":,":&#)(#~13={:"1)todate(#~2=7\|])(+[:i.78161-])todayno 3{.6!:0''[load'dates'

[ J ] [ download code ] ]

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

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

すみません。総数の表示が抜けていました。

1 2	load'dates' exit wd(":,":&#)(#~5&=&weekday)(#~13&=&{:"1)todate(+i.&(78161&-))todayno 3{.6!:0''

[ J ] [ download code ] ]

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

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

実行した日から2013年12月31日までの日付のテーブルをつくり13日を取り出し
その中から金曜日を取り出しています。

実行結果
2009  2 13
2009  3 13
2009 11 13
2010  8 13
2011  5 13
2012  1 13
2012  4 13
2012  7 13
2013  9 13
2013 12 13

1 2	load'dates' exit wd(#~5&=&weekday)(#~13&=&{:"1)todate(+i.&(78161&-))todayno 3{.6!:0''

[ J ] [ download code ] ]

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

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

空白が2個以上続く場合におかしくなるのを
直していたら短くなった。

1	exit wd}:;<&(toupper&{.,}.);.2,&' '1!:1[3

[ J ] [ download code ] ]

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

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

windows 用のコンソール版の場合です。
空白を単語の区切りとしています。
文字列は標準入力で与えます。

>echo "LL day and night" | jconsole ll2.ijs
"LL Day And Night"

1	exit wd;(,' '&;)/<&(toupper&{.,}.);._1' ',1!:1[3

[ J ] [ download code ] ]

pooq's comment on 憂鬱な勇者

憂鬱な勇者 (Nested Flatten)

windows 用のコンソール版の場合です。

monster =: <;._1 ' 焼きたてパン 強いシャチホコ もんじゃ焼き一年生 怪人ホタテ男 ニセ勇者 逃げ足の早いアレ 睡魔 煩悩 愛らしい子犬の中の人 恋するスズメバチ 勇敢なクマンバチ 信じられない物 勇者の師匠 浮遊する鎧 怪盗ドボン 闇の招き猫 誘惑のカスタードクリーム しょっぱすぎる籠手 カレー味の兜 光沢だけは一流の盾 若葉マークのモンスター 新緑の季節 梅雨時の車両のニオイ 暑すぎる夏 新宿らしき何か やたら発達したドーナツ 育ちすぎたクマー なごやかな雰囲気 凍り付いた気配 忍び寄る恐怖'

skill =: <;._1 ' お豆腐の買い方 鉛筆の買い方 消しゴムの使い方 メモの取り方 攻撃に使えないこともない呪文 裏町の歩き方 森林浴 珈琲の味 しじみのみそ汁の作り方 回覧板の回し方 郵便物の投函方法 立ち話のコツ 猫の呼び方 犬の呼び方 カラスの呼び方 鳩専用豆鉄砲 秘密の趣味 速く走るコツ 剣の使い方 斧の使い方 まきわりで、まっきわりわり 聖なる祈り 孤独 涼しく過ごすコツ お洒落のコツ 卵をふわっと焼く方法 ごはんの研ぎ方 油汚れの対応方法 大人の振るまい Suicaの使い方'

sleep =: 6!:3
9!:1 >.5{6!:0 ''  NB. random seed 
p =: 1!:2&2       NB. print

main =: 3 : 0
sel =. ?@# { ]
for_i. >:i.30 do.
  p '*-----'
  p (>sel monster),'を倒した！'
  p (":!x:i), 'の経験値を得た。'
  if. i<30 do.
    p '勇者は',(":i),'にレベルが上がった！'
    p '勇者は、',(>sel skill),'を覚えた。'
    p ''
    sleep 2
    p ''
    p 'そして、'
    p 'かくかくしかじかで、山あり谷ありの冒険が続いたが割愛。'
    p ''
  else.
    p '勇者は、また、レベルが上がった！'
    p '勇者は、ふと空しさを覚えた。'
  end.
end.
)
exit main ''

[ J ] [ download code ] ]

pooq's comment on 2次元ランダムウォーク

2次元ランダムウォーク (Nested Flatten)

特に指定はないようなので、単位時間に上下左右の四方向に一歩ずつ
進む一番簡単そうなものにしました。

   random_walk 10
 1  0 _1
 2  0  0
 3 _1  0
 4 _1  1
 5 _2  1
 6 _3  1
 7 _2  1
 8 _2  2
 9 _2  3
10 _1  3

1	random_walk=:3 :'(>:i.y),.+/\>(<:?y#4){0 _1;0 1;_1 0;1 0'

[ J ] [ download code ] ]

pooq's comment on /コメント/を取り除く

/*コメント*/を取り除く (Nested Flatten)

お題の実行例を満たす最小限の機能しかありませんが。

   remove_comment 'AAA'
AAA
   remove_comment 'AAA/*BBB*/' 
AAA
   remove_comment 'AAA/*BBB*/CCC'
AAACCC
   remove_comment 'AAA/*BBB/*CCC*/DDD*/EEE'
AAADDD*/EEE
   remove_comment 'AAA/a//*BB*B**/CCC'
AAA/a/CCC

remove_comment=: 3 :0
s=. ('/*'E.y)i.1
t=. s}.y
e=. ('*/'E.t)i.1
(s{.y),(2+e)}.t
)

[ J ] [ download code ] ]

pooq's comment on 自分自身のファイル名を知る方法

自分自身のファイル名を知る方法 (Nested Flatten)

windows 用のコンソール版の場合です。

1	exit echo >1{ARGV

[ J ] [ download code ] ]

Latest comments for language 'J' on doukaku.org

pooq's comment on '('と')'の対応

pooq's comment on 漢数字で九九の表

pooq's comment on 漢数字で九九の表

pooq's comment on 漢数字で九九の表

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

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

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

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

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

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

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

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

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

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

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

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

pooq's comment on 憂鬱な勇者

pooq's comment on 2次元ランダムウォーク

pooq's comment on /*コメント*/を取り除く

pooq's comment on 自分自身のファイル名を知る方法

pooq's comment on /コメント/を取り除く