puts "loopを使ったもの。多分これが一番メジャー"
a = loop{
    n = rand(1..10)
    break n if n<=5
}
p a

puts "再帰を使ったもの"
def f
    n = rand(1..10)
    return f if n>5
    n
end
a = f
p a

puts "ラムダ式を使ったもの。関数使ったやつとほぼ同じ"
f = ->{
    n = rand(1..10)
    (n<=5)? n : f.call
}
a = f.call
p a

puts "ただのwhile。他言語ならdo-whileを使う"
a = nil
while a.nil? || a>5
    a = rand(1..10)
end
p a

puts "whileとbreakを使ったもの"
a =
while true
    n = rand(1..10)
    break n if n<=5
end
p a

puts "例外のretryを使ったもの。速度的にも例外的にもあまり良くない気がする"
a =
begin
    n = rand(1..10)
    raise if n>5
    n
rescue
    retry
end
p a

puts "いい感じのやつを自分で定義したもの"
def loop1
    yield
end
a = loop1{
    n = rand(1..10)
    redo if n>5
    n
}
p a

puts "Integer#timesを使ったもの。"
a = nil
1.times{
    n = rand(1..10)
    if n>5
        redo
    else
        a = n
    end
}
p a

puts "Enumerable#mapを使ったもの。eachとかでもできるよね"
a = [nil].map{
    n = rand(1..10)
    redo if n>5
    n
}.first
p a

puts "無限リストを使ったもの。loop使ってるじゃんとか言わないで。selectで表現できるのは加点"
a = Enumerator.new{|y|loop{y<<rand(1..10)}}
    .lazy
    .select{|n|n<=5}
    .first
p a

puts "関数に囲ってきれいに書けるようにしたもの"
def infinite_list
    Enumerator.new{|y|loop{y<<yield}}.lazy
end
a = infinite_list{rand(1..10)}
    .select{|n|n<=5}
    .first
p a

# 2017年11月21日追加

puts "Rangeからの無限リスト"
a = (1..Float::INFINITY) # 1/0.0で無限が作れるので、そっちでもいいのかも
    .lazy
    .map{|_|rand(1..10)}
    .select{|n|n<=5}
    .first
p a

puts "デフォルト引数を使ったもの"
def f n=(n=rand(1..10);(n>5)? f : n)
    n
end
a = f()
p a

# 2018年11月24日追加

puts "loop+lazy+with_index　一年間の成長が詰まってる感じがする"
a = loop
    .lazy
    .map{rand(1..10)}
    .select{|n|n<=5}
    .first
p a

JavaScriptならイベントを使う方法があるらしい。

2017-11-15

LispでDiscordBotを作る！

Discord Bot Discord bot Wisp discord.js node.js Lisp clojure JavaScript AltJS

wispというaltJSの方言(clojureに近い)を使い、discord.jsというライブラリを使って楽をします。

discord.jsは活発なライブラリなので、新機能とかが出てきても安心ですね！

まずは、node.jsをインストール。

それぞれのライブラリをインストール npm install discord.js npm install wisp

そしてプログラムを入力

test.wisp

(def token "*****TOKEN*****")

(def Discord (require "discord.js"))

(def client (Discord.Client.))

(client.on "message"
  (fn [msg]
      (let [args (msg.content.split " ")]
        (console.log args)
        (cond
          (== (get args 0) "!dice")
            (let [num (let [n (parse-int (get args 1) 10)]
                           (if (naN? n) 6 n))]
                 (msg.channel.send (+ (num.->string 10)
                                      "面ダイズを振った。\nカランコロン....\n__"
                                      (+ 1 (Math.floor(* (Math.random) num))) "__")))))))

(client.login token)

(wisp初心者なので間違っているところなどありましたらコメントにお願いします ><)

(naN?問題()) (連続let・・・)

Discord側の設定や、トークンについては discordapp.com ここから

イチからDiscord Bot 。for Ruby - Qiita

Discord Bot の簡単な作り方 – Asamac blog

ここらを適当に参考にしてください。

cat test.wisp | node_modules/.bin/wisp --no-map > test.js

すると、こんなソースコードが出力されます。

test.js

var token = exports.token = '*****TOKEN*****';
var Discord = exports.Discord = require('discord.js');
var client = exports.client = new Discord.Client();
client.on('message', function (msg) {
    return function () {
        var argsø1 = msg.content.split(' ');
        console.log(argsø1);
        return (argsø1 || 0)[0] == '!dice' ? function () {
            var numø1 = function () {
                var nø1 = parseInt((argsø1 || 0)[1], 10);
                return isNaN(nø1) ? 6 : nø1;
            }.call(this);
            return msg.channel.send(numø1.toString(10) + '面ダイズを振った\u3002\nカランコロン....\n__' + (1 + Math.floor(Math.random() * numø1)) + '__');
        }.call(this) : void 0;
    }.call(this);
});
client.login(token);

node test.js

f:id:soukouki:20171115222912p:plain

あなたに快適なBOTライフを！

node v8.9.1 discord.js@11.2.1 wisp@0.10.0

soukouki’s diary

誰かの役に立つ記事をかけたらいいなあ

Happy new year 2018!

simutrans 2017-12-30の日記

てんとう虫🐞

Ruby いろんなループ(トリッキーなもの含む)

LispでDiscordBotを作る！