- プログラミングのお題スレ Part5
879 ：デフォルトの名無しさん[sage]：2014/11/25(火) 13:02:06.69 ID:yJ4OAUnm - >>864 J
f=:3 :';&.>(\: {:"1)(~. ;"_1 #/.~)(<@{:,~2&(<\)) y'
f 'konokodokonoko'
+--+-+
|ko|4|
+--+-+
|ok|3|
+--+-+
|on|2|
+--+-+
|no|2|
+--+-+
|od|1|
+--+-+
|do|1|
+--+-+
|o |1|
+--+-+
| - プログラミングのお題スレ Part5
886 ：デフォルトの名無しさん[sage]：2014/11/25(火) 20:36:16.95 ID:yJ4OAUnm - >>864 Io
f := method(s,
a := list
for(i, 0, s size - 1,
a push(s slice(i, i + 2))
)
a uniqueCount map(v, list(v last, v first)) sort reverse
)
Io> f("konokodokonoko")
==> list(list(4, "ko"), list(3, "ok"), list(2, "on"), list(2, "no"), list(1, "od"), list(1, "o"), list(1, "do"))
|
|