Question

易语言使用彗星真彩控件不显示窗口怎么办

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 真彩_窗口, 真彩窗口
.程序集变量 真彩_按钮, 真彩按钮, , "2"

.子程序 __启动窗口_创建完毕

真彩_窗口.从句柄创建 (_启动窗口.取窗口句柄 ())
真彩_窗口.置图片数据 (#启动窗口背景)
真彩_按钮 [1].从句柄创建 (按钮1.取窗口句柄 ())
真彩_窗口.刷新子控件 ()

Answer 1

objectMainextendsApp{
varreverse_pairs = 0//逆序数
defmsort[T](cmp:(T, T) => Boolean)(l:List[T]):List[T] = {
defmerge(l1:List[T], l2:List[T]):List[T]=(l1, l2)match{
case(Nil, _) => l2
case(_, Nil) => l1
case(x::left1, y::left2) =>
if(cmp(x, y))
x::merge(left1, l2)
else{
reverse_pairs += l1.length
y::merge(l1, left2)
}
}
valn = l.length / 2
if(n == 0)
return l
else{
val(l1, l2) = l.splitAt(n)
merge(msort(cmp)(l1), msort(cmp)(l2))
}
}
println(msort((x:Int, y:Int) => x<y)(List(5, 4, 3, 2, 7,6 )))
println(reverse_pairs)
}