30言語到達(全て無限リストです)。
ずっとウォッチしてました(正直疲れた)が、https://github.com/vlang/v/commit/863cf8af60e37c6145f64aa48419fd43c2b3f95d でようやくChannelが実装されたようです。ようやく解くことができました(closureかchannelが必須なので)。
5月にコルーチン実装するという話はどこへ行ったんですかね？^^;;;
vlang eab0974e7d55b95328a969e85cf41cbb9b26cf71 で動作確認。互換性崩れる可能性はありそう〜
(でもZigよりはまし…)
あと、無名関数が今は使えないようだけど後で使えるようになりますよね…？
//usr/bin/env v run $0 $@;exit
// http://qiita.com/Nabetani/items/1c83005a854d2c6cbb69
// http://nabetani.sakura.ne.jp/hena/ord24eliseq/
fn isqrt(n int) int{
if n<=0 {return 0}
if n<4 {return 1}
mut x:=0
mut y:=n
for x!=y && x+1!=y {x=y y=(n/y+y)/2}
return x
}
fn icbrt(n int) int{
if n<0 {return -icbrt(-n)}
if n==0 {return 0}
if n<8 {return 1}
mut x:=0
mut y:=n
for x!=y && x+1!=y {x=y y=(n/y/y+y*2)/3}
return x
}
fn is_sq(n int) bool{
x:=isqrt(n)
return x*x==n
}
fn is_cb(n int) bool{
x:=icbrt(n)
return x*x*x==n
}
fn is_multiple(i int,n int) bool{ return i%n==0 }
fn is_le(i int,n int) bool{ return i<=n }
fn generate_impl(ch chan int){
mut i:=1
for {
ch <- i
i++
}
}
fn generate() chan int{
ch := chan int{}
go generate_impl(ch)
return ch
}
fn drop_prev_impl(check fn(int)bool,prev chan int,ch chan int){
mut a:=<-prev
mut b:=<-prev
for {
if !check(b) { ch<-a }
a=b
b=<-prev
}
}
fn drop_prev(check fn(int)bool,prev chan int) chan int{
ch := chan int{}
go drop_prev_impl(check,prev,ch)
return ch
}
fn drop_next_impl(check fn(int)bool,prev chan int,ch chan int){
mut a:=<-prev
mut b:=<-prev
ch<-a
for {
if !check(a) { ch<-b }
a=b
b=<-prev
}
}
fn drop_next(check fn(int)bool,prev chan int) chan int{
ch := chan int{}
go drop_next_impl(check,prev,ch)
return ch
}
fn drop_n_impl(check fn(int,int)bool,n int,prev chan int,ch chan int){
mut i:=0
for {
i++
a:=<-prev
if !check(i,n) { ch<-a }
}
}
fn drop_n(check fn(int,int)bool,n int,prev chan int) chan int{
ch := chan int{}
go drop_n_impl(check,n,prev,ch)
return ch
}
fn f_capital_s(prev chan int)chan int{return drop_next(is_sq,prev)}
fn f_small_s(prev chan int)chan int{return drop_prev(is_sq,prev)}
fn f_capital_c(prev chan int)chan int{return drop_next(is_cb,prev)}
fn f_small_c(prev chan int)chan int{return drop_prev(is_cb,prev)}
fn f_small_h(prev chan int)chan int{return drop_n(is_le,100,prev)}
fn f_2(prev chan int)chan int{return drop_n(is_multiple,2,prev)}
fn f_3(prev chan int)chan int{return drop_n(is_multiple,3,prev)}
fn f_4(prev chan int)chan int{return drop_n(is_multiple,4,prev)}
fn f_5(prev chan int)chan int{return drop_n(is_multiple,5,prev)}
fn f_6(prev chan int)chan int{return drop_n(is_multiple,6,prev)}
fn f_7(prev chan int)chan int{return drop_n(is_multiple,7,prev)}
fn f_8(prev chan int)chan int{return drop_n(is_multiple,8,prev)}
fn f_9(prev chan int)chan int{return drop_n(is_multiple,9,prev)}
fn main(){
mut f:=map[string]fn(_ chan int)chan int{}
f['S']=f_capital_s
f['s']=f_small_s
f['C']=f_capital_c
f['c']=f_small_c
f['h']=f_small_h
f['2']=f_2
f['3']=f_3
f['4']=f_4
f['5']=f_5
f['6']=f_6
f['7']=f_7
f['8']=f_8
f['9']=f_9
//this anonymous function somehow causes C error.
//f['S']=fn(prev chan int)chan int{return drop_next(is_sq,prev)}
/*
f['s']=fn(prev chan int)chan int{return drop_prev(is_sq,prev)}
f['C']=fn(prev chan int)chan int{return drop_next(is_cb,prev)}
f['c']=fn(prev chan int)chan int{return drop_prev(is_cb,prev)}
f['h']=fn(prev chan int)chan int{return drop_n(is_le,100,prev)}
for i:=2;i<10;i++ {
j:=i
f[j.str()]=fn(prev chan int)chan int{return drop_n(is_multiple,j.int(),prev)}
}
*/
mut line:=get_line()
for line!="" {
//cS => f['S'](f['c'](generate()))
mut ch := generate()
for c in line {
//somehow I need to assign first or the source will not compile.
z:=f[c.str()]
ch=z(ch)
}
for i:=0;i<10;i++ {
if i>0 { print(',') }
print(<-ch)
}
println('')
flush()
line=get_line()
}
}