crella95 (crella95)

暂时隐藏暂时隐藏

crella95 — Mon, 16 Mar 2026 07:39:38 +0800

国内教c#和java的教材写的真烂

perl 编译快多了

crella95 — Tue, 03 Mar 2026 21:17:43 +0800

perl5 编译快多了，上次编译看得眼花，这次大概十分钟就编译完了

隔壁社区有人说 pascal 看不起 ruby

crella95 — Mon, 23 Feb 2026 11:12:33 +0800

https://wap.newsmth.net/article/c02b1b60a53ea979484ada5225394f51

，有空的可以过去说服他，岂有此理，ruby3 都快多了还有人抱着只在教算法时候出现的 pascal 鄙视 ruby 程序员？

linux 技巧更新

crella95 — Sat, 10 Jan 2026 18:38:50 +0800

第一，qemu 要用-drive file=DISK,cache=directsync，而且对于 windows，-vga vmware 启动快很多 -cpu core2duo

labwc 说是一个类似 openbox 的 wayland 窗口管理器但是导致 vlc qemu-gtk 部分程序运行缓慢

企业微信 5 还是没有自带 webview

crella95 — Sat, 10 Jan 2026 17:12:53 +0800

我说的是安卓 5 和旧版本不是指 windows 安装在旧版本的系统的旧版本的 webview 就会卡住和启动失败，腾讯这公司到底在干嘛

终端输入法

crella95 — Sun, 07 Dec 2025 15:47:35 +0800

由于我的 linux 电脑 ibus 输入法经常消失

use strict; use warnings;#gb2312 simplified chinese input;Terminal  PERL perl
open(my $ri, "<bgb2.csv");
my @mkey = ();
my @mvar = ();
while (<$ri>) {
    my $ln = $_; chomp($ln);
    my @lnx = split(',',$ln);
    if ($lnx[scalar(@lnx)-1] eq ""){ pop(@lnx);}
    if (scalar(@lnx) > 0) {
        my $hkey = $lnx[0]; shift(@lnx);
        push(@mkey, $hkey); push(@mvar, \@lnx);
    }
}
close($ri);
if (scalar(@mkey) >= 1000){die("too many keys");} 
print "ready\n";

my $unum = "";
my @ms = (); my $w = 0; my $j = 0;
while (1){
    my $uip = <STDIN>; chomp($uip);
    $j = 0; 
    while ($j < scalar(@mkey)){
        if ($uip eq "x") { 
pop(@ms);print join("",@ms)."\n";$j = 1000;}
        elsif ($mkey[$j] eq $uip){ 
            my $cur = $mvar[$j];
            my @curvar = @$cur; 
            for ($w = 1; $w <= scalar(@curvar); $w += 1 ){
                print $w."'".$curvar[$w-1]." ";
            }
            print "\n";
            $unum = <STDIN>; chomp($unum); #print "[".$unum."]\n";
            if ($unum eq "n"){$j += 1;} elsif ($unum eq "q"){$j = 1000;}                
            elsif (index("012345678910111213141516", $unum) > -1) {         

                push(@ms, $curvar[int($unum)-1]); print join('', @ms)."\n"; 
                $j = 1000;
            } elsif ($unum eq "r") {$j -= 1;}
        } else {
            $j += 1;        
        }
    }
}

bgb2.csv =

aa,啊,阿,埃,挨,哎,唉,哀,皑,癌,蔼,矮,艾,碍,爱,隘
aa,鞍,氨,安,俺,按,暗,岸,胺,案,肮,昂,盎,凹,敖,熬,翱
aa,袄,傲,奥,懊,澳
ba,芭,捌,扒,叭,吧,笆,八,疤,巴,拔,跋
ba,靶,把,耙,坝,霸,罢,爸,白,柏,百,摆,佰,败,拜,稗,斑
ba,班,搬,扳,般,颁,板,版,扮,拌,伴,瓣,半,办,绊,邦,帮
ba,梆,榜,膀,绑,棒,磅,蚌,镑,傍,谤,苞,胞,包,褒,剥
ba,薄,雹,保,堡,饱,宝,抱,报,暴,豹,鲍,爆
be,杯,碑,悲,卑,北,辈,背,贝,钡,倍,狈,备,惫,焙
be,被,奔,苯,本,笨,崩,绷,甭,泵,蹦,迸
bi,逼,鼻,比,鄙,笔,彼,碧,蓖,蔽,毕
bi,毙,毖,币,庇,痹,闭,敝,弊,必,辟,壁,臂,避,陛,鞭,边
bi,编,贬,扁,便,变,卞,辨,辩,辫,遍,标,彪,膘,表,鳖,憋
bi,别,瘪,彬,斌,濒,滨,宾,摈,兵,冰,柄,丙,秉,饼,炳
bi,病,并
bo,玻,菠,播,拨,钵,波,博,勃,搏,铂,箔,伯,帛
bo,舶,脖,膊,渤,泊,驳
bu,捕,卜,哺,补,埠,不,布,步,簿,部,怖
ca,擦,猜,裁,材,才,财,睬,踩,采,彩,菜,蔡,餐,参,蚕
ca,残,惭,惨,灿,苍,舱,仓,沧,藏,操,糙,槽,曹,草,厕,策
ca,侧,册,测,层,蹭
cha,插,叉,茬,茶,查,碴,搽,察,岔,差,诧,拆,柴,豺
~~~~~~

减少 linux 垄断软件

crella95 — Thu, 27 Nov 2025 09:01:48 +0800

第一，删除 network manager 不一定适用于所有环境，前提是先卸载 network-manager-applet 和 NetworkManager 和 libnma，这两个搞不定的就不要看了



/usr/bin/wpa_supplicant -i wlp1s0（wlan设备） -c /etc/wpa_supplicant/wpa_supplicant.conf
/usr/bin/dhcpcd wlp1s0
编辑 /etc/resolv.conf"nameserver 114.114.114.114" 
因为我讨厌dhcp耗时长，所以设置静态ip
ip a add 192.168.1.157/24 dev wlp1s0
ip route add default via 192.168.1.1

voidlinux 可以试用

crella95 — Thu, 06 Nov 2025 21:20:18 +0800

放弃 debian，感觉有犹太人的审美，试用 voidlinux，用刻录 iso 方式安装的，感觉有 javascript 风格，安装新应用包还不太熟

2011 年之前的计算机技术是不是比较烂

crella95 — Mon, 29 Sep 2025 12:17:46 +0800

在 qemu 上运行的 reactos 解压虚拟光驱里 1G 的仅存储 zip 文件居然整个系统卡死了；不知道哪里安装不完整的 kde plasma wayland 的任务栏网络提示就算你用 nm-connection-editor 修改设置连上了 wifi 还是看不到，更不用说 dns 需要我亲自修改/etc/resolv.conf；

据说那些技术都是犹太人写的，虽然是免费的操作系统，怎么写的比大学生毕业设计还烂

apple 用 swift 替代 java 说明谷歌安卓真不行

crella95 — Sat, 30 Aug 2025 15:36:23 +0800

安卓的触摸延时肉眼都能看到，都是 java 的问题，据新闻报道 apple 减少了服务器集群的一半的内存占用，然后给 k8s 提供了更大的空间

中文输入法在终端，自己写的

crella95 — Mon, 09 Sep 2024 20:23:14 +0800

太占空间了让我先换个位置

怎么保证程序能申请到物理条件限制下的最大内存

crella95 — Thu, 11 Jul 2024 16:30:33 +0800

在不用到指针的情况下，比如说 32 位系统，安装了 3GB 物理内存，我运行一个 runtime.exe，然后每次都通过操作系统的 spawnprocess 来运行一个 storage.exe，每个 storage.exe 可以保存十万个 int 和一万个 string，然后 runtime.exe 把寻找变量的请求写入文件系统的 tmpfile，然后每个 storage.exe 随机读取 tmpfile，如果有对应变量，把值写在 tmpfile2，然后 runtime 检查到 tmpfile2 存在就把值读取到内存，是这样设计吗？

imgimgimg

crella95 — Wed, 03 Jul 2024 12:09:05 +0800

全部删除 imgimgimg

建议 ruby 换吉祥物

crella95 — Tue, 05 Dec 2023 08:28:22 +0800

perl 骆驼，php 大象，python 蟒蛇，golang 老鼠。都分别很好的描述了每个编程语言的设计用途和目标。php 大象是因为力量大、负重多又好看

动物吉祥物生命力强，力量大，寿命长，

主线程 sleep 会导致其他线程运行缓慢吗

crella95 — Mon, 01 May 2023 18:55:51 +0800

我在写 perl 代码，分了两个线程单独下载文件，主线程是 while(1) { sleep(1);} 发现文件下着下着就不下了，但是浏览器打开文件毫无问题，于是把主线程的 sleep 给删了，两个线程 join 到主线程，感觉下载文件没有异常了

ruby 也是这样的吗

手写简单编程语言

crella95 — Sun, 16 Oct 2022 00:26:40 +0800

simple While and Sub and If

module main;
// crispy basic programming language
import std.stdio;
import std.conv;
import std.string;
import std.file;
import std.process;
//todo:
// UNSUPPORT define subroutine and run subroutine



int main(string[] args)
{
    string[15] ab ;
    writeln(">>> readfile abccb.txt");
    File fgl = File("abccb.txt", "r");
    string fmm = "";
    int fi = 0;
    while (fi < 14){
        ab[fi] = chomp(fgl.readln());
        fi += 1;
    }
    fgl.close();
    //writeln(ab[0]);
    writeln("You can't use Sub() or Co() inside a While() !!!");
    tour_cmd(ab);
    return 1;
}
//int a 6
//co [clog a] [cwrite [hello!]] [clog a] --> step to step execute commands..
//ifle a [cwrite [happy!]] [cwrite [good!]] --> if (a>0){ print("happy!"); print("good!");}

// to function while(...){}, use this: A only one while cycle: 
// co [clog a] [fgc a] [fig a [y-1]] [whilele a]  --> while(a>0){ writeline(a); a = a-1;}

// OR while(...) {} with more than one cycle:
//int a 7
//int b 4
//co [#f 7] [#f 13]  [clog a] [fig a [$a-1]]  [whilele a 13] [int a 7] [fig b [$b-2]] [clog b] [whilele b 7]
// ---- > a = 7; b = 4; do  { do  { print(a); a = a-1; } while (a > 0) ; a = 7; b = b-2;} while (b>0);
// You can't use Sub() or Co() inside a While() !!!

// to function continual Sub(), use:
//int b -7
//fsub xx [fgc b] [fig b [y-1]] [clog b] 
//fsub yy [cwrite [Hi b!]] [clog b] [rsub xx]
//fsub zz [cwrite [Next b!]] [clog b] [rsub yy]
//rsub zz
//rsub xx

// work out math problem
float evv(string inp){
    string ncc = "";
    float[5000] en;
    int[5000] ff;
    int i = 0;
    int j = 0;
    if (inp[0] == '-'){
        i += 1;
        ncc = "-";
    }
    // don't support brackets ( )
    // execute division first then multiply then minus then plus
    // suppose no continual operators;
    while (i < inp.length){
        if (inp[i] == '+'){
            en[j] = ncc.to!float;   
            ff[j] = 1;
            j += 1;
            ncc = "";
        } else if (inp[i] == '-'){
            en[j] = ncc.to!float;   
            ff[j] = 2;
            j += 1;
            ncc = "";
        } else if (inp[i] == '*'){
            en[j] = ncc.to!float;   
            ff[j] = 3;
            j += 1;
            ncc = "";
        } else if (inp[i] == '/'){
            en[j] = ncc.to!float;
            ff[j] = 4;
            j += 1;
            ncc = "";
        } else {
            ncc = ncc~inp[i];
        }
        i += 1;
    }
    if (ncc.length > 0) {
        en[j] = ncc.to!float;
        j += 1;
    }
    if (ff[0] == 0){
        return en[0].to!int;
    }
    float fg = 0;
    i = 0;
    while (i < j){
        if (ff[i] == 4){
            en[i] = en[i] / en[i+1];
            ff[i] = 3;
            en[i+1] = 1; // division -> multiply
        }
        i += 1;
    }
    i = j - 1;
    while (i >= 0){
        if (ff[i] == 3){
            en[i] = en[i] * en[i+1];
            ff[i] = 1;
            en[i+1] = 0; // multiply -> minus
        }
        i -= 1;
    }
    i = 0;
    while (i < j){
        if (ff[i] == 2){
            en[i+1] = en[i] - en[i+1];
            ff[i] = 1;
            en[i] = 0; // multiply -> minus
        }
        i += 1;
    }
    i = 0;
    while (i < j){
        fg = fg + en[i];
        i += 1;
    }
    return fg;
}
// make 'a+b' to '1+2.5'


void erwrite(string msg){
    writeln("Error: <"~msg~">");
}
int tour_cmd(string[] fibre1){
    string[1000] gstrs;
    int gsi = 0;
    // WARGING!: array length must < 16100. It's weird on dmd2 on windows. dmd2 on linux works well.
    //string tmpstr = "";
    long[1000] gints;
    int gii = 0;
    float[1000] gflts;
    int gfi = 0;
    string[1000] gnms;
    int gni = 1;
    int[1000] gtypes;
    int[100] gcchs;
    /*
    1->int 2->flt 3->string

    5->local file operation
    7->array declare
    type allowed counts = 20
    */
    int[1000] gadrs;

    string lfp = "";
    string lftmp = "";

    int lfid = 1;
    string ctmp = "";

    string cs = "";
    string mmr = "";
    int mmi = 0;
    int mmj = 0;
    int mmk = 0;
    float mmh = 0;
    int cj = 0;
    string mms = "";
    int is_wait = 0; // spawnprocess and spawnshell, D's execute()
    //writeln(fibre1);
    //int continual_cs = 1;
    int var_found = 0;
    int waitn = 0;


    string[500] cqs; // execute commands cache 
    cs = fibre1[0];
    int cmj = 0;
    int cqj = 0; 

    string[1000] subfs;
    string[1000] subws;
    int subfid = 0;

    char[300] ckp;

    int f1len = fibre1.length.to!int;
    //writeln(f1len);
    string[100] curnm;
    int uk = 0;
    int mmu = 0;
    int[200] ccint;
    float[200] ccflt;
    string[200] ccstr;
//    float[200] ccfg;


    while (uk < f1len){
          // writeln("<<< "~cs);

            int cci = curnm.length - 1;

            while ( cci >= 0){
                curnm[cci] = ""; cci -= 1;
            }
            int constr = 0;
            cj = 0;
            cci = 0;
            int ccj = -1;
            int ccm = 300-1;

            while (ccm >= 0){
                ckp[ccm] = ' '; ccm -= 1;
            }
            ctmp = "";
            while (cci < cs.length){  
                                //writeln(cs[cci]);
                if (cs[cci] == ' '){
//writeln("ccj="~ccj.to!string);
                    if (constr >0 ){
                                            ccj += 1;
                       ckp[ccj] = ' ';

                    } else if (ccj >= 0){
                       //writeln("ckp="~ckp.to!string);

                         ctmp = "";
                         for (ccm = 0; ccm <= ccj; ccm += 1){
                            ctmp = ctmp ~ ckp[ccm];
                         }
                         curnm[cj] = ctmp;
                         cj += 1;  
                         ccj = -1;
                    }
                } else if (cs[cci] == '['){
                    if (constr > 0){
                        ccj += 1;
                        ckp[ccj] = '[';
                    }
                    constr += 1;

                } else if (cs[cci] == ']'){
                    if (constr == 1){
                        ctmp = "";
                        //writeln("ckp="~ckp.to!string);

                         for (ccm = 0; ccm <= ccj; ccm += 1){
                            ctmp = ctmp ~ ckp[ccm];
                         }
                         curnm[cj] = ctmp;
                         ccj = -1;
                         cj += 1; 
                         constr = 0;
                    } else {
                        constr -= 1;
                        ccj += 1;
                        ckp[ccj] = ']';
                    }
                } else {
                    ccj += 1;
                    ckp[ccj] = cs[cci];
                }
                cci += 1;
            }
            if (ccj >= 0){
                ctmp = "";

                 for (ccm = 0; ccm <= ccj; ccm += 1){
                    ctmp = ctmp ~ ckp[ccm];
                 }
                 curnm[cj] = ctmp;
                 cj += 1; 
            }

            if (curnm[0] == "int"){ // int a 1
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[1]){
                            gints[gadrs[mmk]] = curnm[2].to!int;
                            gtypes[mmk] = 1;
                            var_found = 1;
                            mmk = -1;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    gni += 1;
                    gnms[gni] = curnm[1];
                    //writeln(gnms[gni]);
                    gtypes[gni] = 1;
                    gadrs[gni] = gii;
                    gints[gii] = curnm[2].to!int;
                    gii += 1;
                }

            } else if (curnm[0] == "flt"){ // flt b 1.5
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[1]){
                            gflts[gadrs[mmk]] = curnm[2].to!float;
                            gtypes[mmk] = 2;
                            var_found = 1;
                            mmk = -3;
                        }
                    } 
                    mmk -= 1;

                }
                if (var_found == 0){
                } else {
                    gni += 1;
                    gnms[gni] = curnm[1];
                    gtypes[gni] = 2;
                    gadrs[gni] = gfi;
                    gflts[gfi] = curnm[2].to!float;
                    gfi += 1;
                }

            }else if (curnm[0] == "clog"){
                //writeln("start clog");
                var_found = 0;
               mmk = gni;
              // writeln(gnms);
                while (mmk >= 0) {
                   if (gtypes[mmk] == 1){
                        if (gnms[mmk] == curnm[1]){
                            writeln(gints[gadrs[mmk]]);
                            var_found = 1;
                            mmk = -3;
                        }
                    } else if (gtypes[mmk] == 2){
                        if (gnms[mmk] == curnm[1]){
                            writeln(gflts[gadrs[mmk]]);
                            var_found = 1;
                            mmk = -3;
                        }
                    } else if (gtypes[mmk] == 3){
                        if (gnms[mmk] == curnm[1]){
                            writeln(gstrs[gadrs[mmk]]);
                            var_found = 1;
                            mmk = -3;
                        }
                    } 
                    mmk -= 1;

                }
                if (var_found == 1){
                } else {
                    erwrite("couldn't find Var:"~curnm[1]);
                }

            }  else if (curnm[0] == "arylen"){
                mmk = gni;
                var_found = 0;
                long mmq = 0;
                while (mmk >= 0) {
                    if (gtypes[mmk] >0){
                       if (gnms[mmk] == curnm[2]){
                            mmq = gints[gadrs[mmk]];
                            mmk = -3;
                            var_found = 1;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 1){
                    erwrite("couldn't find Var:"~curnm[2]);
                } else {
                    mmk = gni;
                    while (mmk >= 0) {
                        if (gtypes[mmk] == 1){
                           if (gnms[mmk] == curnm[1]){
                                gints[gadrs[mmk]] = mmq;
                                mmk = -3;
                                var_found = 1;
                            }
                        }
                        mmk -= 1;
                    }
                    if (var_found == 1){
                    } else {
                        gni += 1;
                        gnms[gni] = curnm[1];
                        gtypes[gni] = 1;
                        gadrs[gni] = gii;
                        gints[gii] = mmq;
                        gii += 1;
                    }
                }
            } else if (curnm[0] == "if"){ // if a [int b 1]  [ int c 0] ---> if (a == 0)
                var_found = 0;
                mmk = gni;

                while (mmk >= 0) {
                    if (gtypes[mmk] == 1 ){
                       if (gnms[mmk] == curnm[1]){
                                                        //mmk = -3;
                            if (gints[gadrs[mmk]] == 0){

                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }
                        }
                    } else if (gtypes[mmk] == 2 ){
                       if (gnms[mmk] == curnm[1]){
                                                            //mmk = -3;
                            if (gflts[gadrs[mmk]] == 0.0){
                                  var_found = 1;mmk = -3;
                            } else {
                                  var_found = 2;mmk = -3;
                            }
                        }
                    }
                    mmk -= 1;
                }
                int mma = 0;
                if (var_found ==1){
                    waitn = 1;
                    cs = "co ";
                    for (mma = 2; mma < cj; mma += 1){
                         cs = cs ~ " ["~curnm[mma]~"] ";
                    }

                } else if (var_found == 0){
                    erwrite("couldn't find Val: "~curnm[1]);
                }
            } else if (curnm[0] == "ifle"){ // if (a > 0) {}
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] == 1 ){
                       if (gnms[mmk] == curnm[1]){
                                                // mmk = -3;
                            if (gints[gadrs[mmk]] > 0){

                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }

                        }
                    } else if (gtypes[mmk] == 2 ){
                       if (gnms[mmk] == curnm[1]){
                                                 //mmk = -3;
                            if (gflts[gadrs[mmk]] > 0.0){

                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }
                        }
                    }
                    mmk -= 1;
                }
                int mma = 0;
                if (var_found == 1){
                    waitn = 1;
                    cs = "co ";
                    for (mma = 2; mma < cj; mma += 1){
                         cs = cs ~ " ["~curnm[mma]~"] ";
                    }
                } else if (var_found == 0){
                    erwrite("couldn't find Val: "~curnm[1]);
                }
            }else if (curnm[0] == "while"){ // while var 3 --> while (var == 0) { goto #f 3;}
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] == 1 ){
                       if (gnms[mmk] == curnm[1]){
                                                // mmk = -3;
                            if (gints[gadrs[mmk]] == 0){
                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }
                        }
                    } else if (gtypes[mmk] == 2 ){
                       if (gnms[mmk] == curnm[1]){
                                                // mmk = -3;
                            if (gflts[gadrs[mmk]] == 0.0){
                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }
                        }
                    }
                    mmk -= 1;
                }
                int mma = 0;
                if (var_found == 1){
                    waitn = 2 + curnm[2].to!int;

                } else if (var_found == 0){
                    erwrite("couldn't find Val: "~curnm[1]);
                }
            } else if (curnm[0] == "whilele"){ // while var 3 --> while (var == 0) { goto #f 3;}
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {

                    if (gtypes[mmk] == 1 ){
                       if (gnms[mmk] == curnm[1]){
                            if (gints[gadrs[mmk]] > 0){
                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }

                        }
                    } else if (gtypes[mmk] == 2 ){
                       if (gnms[mmk] == curnm[1]){
                            if (gflts[gadrs[mmk]] > 0.0){
                                var_found = 1;mmk = -3;
                            } else {
                                var_found = 2;mmk = -3;
                            }
                        }
                    }
                    mmk -= 1;
                }

                int mma = 0;
                if (var_found == 1){
                    waitn = 2 + curnm[2].to!int;
                } else if (var_found == 0){
                    erwrite("whilele: couldn't find Val: "~curnm[1]);
                }
                //writeln("wle var="~curnm[1]~" wn="~waitn.to!string);
            } else if (curnm[0] == "mkstr"){ //mkstr c {This is a string} {ha ha} -> c = 'This is a stringha ha'
                string mmss = curnm[2];
                mmj = 3;
                while (mmj < cj){
                    mmss = mmss~curnm[mmj];
                    mmj += 1;
                }
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0 ){
                       if (gnms[mmk] == curnm[1]){
                            gstrs[gadrs[mmk]] = mmss;
                            gtypes[mmk] = 3;
                            mmk = -3;
                            var_found = 1;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 1){
                } else {
                    gni += 1;
                    gnms[gni] = curnm[1];
                    gtypes[gni] = 3;
                    gadrs[gni] = gsi;
                    gstrs[gii] = mmss;
                    gsi += 1;
                }

            } else if (curnm[0] == "aryint") { // aryint y 20
                mmi = curnm[2].to!int;
                gni += 1;
                gnms[gni] = curnm[1];
                gadrs[gni] = gii; 
                gtypes[gni] = 7;
                gcchs[gni] = mmi;
                for (mmj = mmi; mmj > 0; mmj -= 1){
                    gints[gii + mmj] = 0;
                }
                gii += mmi;

            } else if (curnm[0] == "aryflt") {
                mmi = curnm[2].to!int;
                gni += 1;
                gnms[gni] = curnm[1];
                gadrs[gni] = gfi; 
                gtypes[gni] = 8;
                gcchs[gni] = mmi;
                for (mmj = mmi; mmj > 0; mmj -= 1){
                    gflts[gfi + mmj] = 0;
                }
                gfi += mmi;
            } else if (curnm[1] == "arystr"){
                mmi = curnm[2].to!int;
                gni += 1;
                gnms[gni] = curnm[1];
                gadrs[gni] = gsi; 
                gtypes[gni] = 9;
                gcchs[gni] = mmi;
                for (mmj = mmi; mmj > 0; mmj -= 1){
                    gstrs[gfi + mmj] = "";
                }
                gsi += mmi;
          } else if (curnm[0] == "engine"){
              string[500] nab;
              for (int mmy = 1; mmy < cj; mmy += 1){
                  nab[mmy - 1] = curnm[mmy];
              }
              tour_cmd(nab);

            } else if (curnm[0] == "lfwrite"){ // lfwrite [filepath] [string text]

                File lfx = File(curnm[1], "w");
                lfx.write(curnm[2]);
                lfx.close();
            } else if (curnm[0] == "lfappend"){
                File lfx = File(curnm[1], "a");
                lfx.write(curnm[2]);
                lfx.close();
            } else if (curnm[0] == "mkcc"){
                // mkcc i x 21 ; assign Cache int[] 21 value to Variable x
                // mkcc sx y 2 15; assign Cache string[] 15 value to Array y[2]
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[2]){
                            if (curnm[1] == "i"){
                                gints[gadrs[mmk]] = ccint[curnm[3].to!int];
                                gtypes[mmk] = 1;
                                var_found = 1;
                                mmk = -1;
                            } else if (curnm[1] == "f"){
                                gflts[gadrs[mmk]] = ccflt[curnm[3].to!int];
                                gtypes[mmk] = 2;
                                var_found = 1;
                                mmk = -1;
                            } else if (curnm[1] == "s"){
                                gstrs[gadrs[mmk]] = ccstr[curnm[3].to!int];
                                gtypes[mmk] = 3;
                                var_found = 1;
                                mmk = -1;
                            } else if (curnm[1] == "ix"){
                                gints[gadrs[mmk] + curnm[3].to!int] = ccint[curnm[4].to!int];
                                gtypes[mmk] = 1;
                                var_found = 1;
                                mmk = -1;
                            } else if (curnm[1] == "fx"){
                                gflts[gadrs[mmk] + curnm[3].to!int] = ccflt[curnm[3].to!int];
                                gtypes[mmk] = 2;
                                var_found = 1;
                                mmk = -1;
                            } else if (curnm[1] == "sx"){
                                gstrs[gadrs[mmk] + curnm[3].to!int] = ccstr[curnm[3].to!int];
                                gtypes[mmk] = 3;
                                var_found = 1;
                                mmk = -1;
                            } 
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    erwrite("can't find Val name:"~curnm[2]);
                }
            } else if (curnm[0] == "arycc"){
                // arycc i y 14 3 -> set cache ccint[3] = Array(int) y[14]
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[2]){
                            if (gtypes[mmk] == 7){
                                if (curnm[1] == "i"){
                                    ccint[curnm[4].to!int] = gints[gadrs[mmk] + curnm[3].to!int ].to!int;
                                    var_found = 1;
                                    mmk = -1;
                                } else {
                                    erwrite("array assign type not match cache type");
                                }

                            } else if (gtypes[mmk] == 8){
                                if (curnm[1] == "f"){
                                    ccflt[curnm[4].to!int] = gflts[gadrs[mmk] + curnm[3].to!int ];
                                    var_found = 1;
                                    mmk = -1;
                                } else {
                                    erwrite("array assign type not match cache type");
                                } 
                            } else if (gtypes[mmk] == 9){
                                if (curnm[1] == "s"){
                                    ccstr[curnm[4].to!int] = gstrs[gadrs[mmk] + curnm[3].to!int ];
                                    var_found = 1;
                                    mmk = -1;
                                } else {
                                    erwrite("array assign type not match cache type");
                                } 
                            } else {
                                erwrite("array assign type illegal");
                            } 
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    erwrite("can't find Val name:"~curnm[2]);
                }



            } else if (curnm[0] == "lfread"){ // lfread filehandle var -> var = filehandle's file content, all.
                lfp = curnm[1];
                lftmp = "";
                File lfx = File(lfp, "r");
                while (!lfx.eof()){
                    lftmp = lftmp~chomp(lfx.readln());
                }
                lfx.close();

                var_found = 0;

                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0 ){
                       if (gnms[mmk] == curnm[2]){
                            gstrs[gadrs[mmk]] = lftmp;
                            gtypes[mmk] = 3;
                            var_found = 1;
                            mmk = -3;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 1){
                } else {
                    gni += 1;
                    gnms[gni] = curnm[2];
                    gtypes[gni] = 3;
                    gadrs[gni] = gsi;
                    gstrs[gii] = lftmp;
                    gsi += 1;
                }

            } 
            else if (curnm[0] == "process"){ // process is_wait(0 OR 1) [exe] [param]
                //int xxcpid;
                int swj = cj - 2;
                string[10] xcmd;
                for (swj = 2; swj < cj; swj += 1){
                    xcmd[swj-2] = curnm[swj];
                }
                is_wait = curnm[1].to!int;
                if (is_wait == 1){
                    auto xxcpid = execute(xcmd);
                } else if (is_wait == 0){
                    auto xxcpid = spawnProcess(xcmd);
                }
            } else if (curnm[0] == "shell"){ // 
                auto xxcpid = executeShell(curnm[1]);
            } else if (curnm[0] == "cwrite"){ // 
                writeln(curnm[1]);
            } else if (curnm[0] == "eval"){ // 
                waitn = 1;
                cs = curnm[1];
            } else if (curnm[0] == "fgc"){ // fgc  [a b c] r [1+$*$-$] 
                //--> a,b,c is the cache of $,$,$
                mmk = 0;
                mms = curnm[1];
                string[10] fycr;
                int fyid = 0;
                mmr = "";
                while (mmk < mms.length){
                    if (mms[mmk] == ' '){
                        if (mmr.length > 0){
                            fycr[fyid] = mmr;
                            fyid += 1;
                        }
                        mmr = "";
                    } else {
                        mmr = mmr~mms[mmk];
                    }
                    mmk += 1;
                }
                if (mmr.length > 0){
                    fycr[fyid] = mmr;
                    fyid += 1;
                }
                float[10] ccfg;

                int mme = 0;
                while (mme < fyid){
                    var_found = 0;
                    mmk = gni;
                    while (mmk >= 0) {
                        if (gtypes[mmk] == 1){
                           if (gnms[mmk] == fycr[mme]){
                                ccfg[mme] = gints[gadrs[mmk]].to!float;
                                var_found = 1;
                                mmk = -3;
                            }
                        } else if (gtypes[mmk] == 2){
                           if (gnms[mmk] == fycr[mme]){
                                ccfg[mme] = gflts[gadrs[mmk]];
                                var_found = 1;
                                mmk = -3;
                            }
                        }

                        mmk -= 1;
                    }
                    if (var_found == 0){
                        erwrite("can't find Val name:"~curnm[mme]);
                    }
                    mme += 1;
                }

                mmr = "";
                mms = curnm[3];
                mme = 0;
                for (int j = 0; j < mms.length; j++){
                    if (mms[j] == '$'){
                        if (mme < fyid) {
                            mmr = mmr~(ccfg[mme].to!string);
                            mme += 1;
                        } else {
                            erwrite("array length out of range");
                        }
                    } else {
                        mmr = mmr~mms[j];
                    }
                }

                float rrb = evv(mmr);
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[1]){
                            gflts[gadrs[mmk]] = rrb;
                            gtypes[mmk] = 2;
                            var_found = 1;
                            mmk = -3;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    gni += 1;
                    gnms[gni] = curnm[2];
                    gtypes[gni] = 2;
                    gadrs[gni] = gfi;
                    gflts[gfi] = rrb;
                    gfi += 1;
                }

            } else if (curnm[0] == "fig"){
                // figure out math problem : fig axx [1+3.5*2-3] 

                float rra = evv(curnm[2]);
                var_found = 0;
                mmk = gni;
                while (mmk >= 0) {
                    if (gtypes[mmk] > 0){
                       if (gnms[mmk] == curnm[1]){
                            gflts[gadrs[mmk]] = rra;
                            gtypes[mmk] = 2;
                            var_found = 1;
                            mmk = -3;
                        }
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    gni += 1;
                    gnms[gni] = curnm[1];
                    gtypes[gni] = 2;
                    gadrs[gni] = gfi;
                    gflts[gfi] = rra;
                    gfi += 1;
                }

            } else if (curnm[0] == "fstr"){ //fstr r b -> make b.tostring()
                    mms = "";
                    mmk = gni;
                    var_found = 0;
                    while (mmk >= 0) {
                        if (gtypes[mmk]  == 1){
                           if (gnms[mmk] == curnm[2]){
                                mms = gints[gadrs[mmk]].to!string;
                                mmk = -3;
                                var_found = 1;
                            }
                        } else if (gtypes[mmk]  == 2){
                           if (gnms[mmk] == curnm[2]){
                                mms = gflts[gadrs[mmk]].to!string;
                                mmk = -3;
                                var_found = 1;
                            }
                        } else if (gtypes[mmk]  == 3){
                           if (gnms[mmk] == curnm[2]){
                                mms = gstrs[gadrs[mmk]].dup;
                                mmk = -3;
                                var_found = 1;
                            }
                        } else {
                            erwrite("cannot change type to string");
                        }
                        mmk -= 1;
                    }
                    if (var_found == 0){
                        erwrite("couldn't find Var:"~curnm[2]);
                    } else {
                        var_found = 0;
                        mmk = gni;
                        while (mmk >= 0) {
                            if (gtypes[mmk]  > 0){
                               if (gnms[mmk] == curnm[1]){
                                    gstrs[gadrs[mmk]] = mms;
                                    gtypes[mmk] = 3;
                                    mmk = -3;
                                    var_found = 1;
                                }
                            }
                            mmk -= 1;
                        }
                        if (var_found == 1){
                        } else {
                            gni += 1;
                            gnms[gni] = curnm[1];
                            gstrs[gsi] = mms;
                            gadrs[gni] = gsi;
                            gtypes[gni] = 3;
                            gsi += 1;
                        }
                    }

            } else if (curnm[0] == "fflt"){
                mmk = gni;
                mmh = 0;
                var_found = 0;
                while (mmk >= 0) {
                    if (gtypes[mmk]  == 1){
                       if (gnms[mmk] == curnm[2]){
                            mmh = gints[gadrs[mmk]].to!int;
                            mmk = -3;
                            var_found = 1;
                        }
                    } else if (gtypes[mmk]  == 2){
                       if (gnms[mmk] == curnm[2]){
                            mmh = gflts[gadrs[mmk]];
                            mmk = -3;
                            var_found = 1;
                        }
                    } else if (gtypes[mmk]  == 3){
                       if (gnms[mmk] == curnm[2]){
                            mmh = gstrs[gadrs[mmk]].to!int;
                            mmk = -3;
                            var_found = 1;
                        }
                    } else {
                        erwrite("cannot change type to float");
                    }
                    mmk -= 1;
                }
                if (var_found == 0){
                    erwrite("couldn't find Var:"~curnm[2]);
                } else {
                    mmk = gni;
                    var_found = 0;
                    while (mmk >= 0) {
                        if (gtypes[mmk]  > 0){
                           if (gnms[mmk] == curnm[1]){
                                gflts[gadrs[mmk]] = mmh;
                                gtypes[mmk] = 2;
                                mmk = -3;
                                var_found = 1;
                            }
                        }
                        mmk -= 1;
                    }
                    if (var_found == 0){
                    } else {
                        gni += 1;
                        gnms[gni] = curnm[1];
                        gflts[gfi] = mmh;
                        gadrs[gni] = gfi;
                        gtypes[gni] = 2;
                        gfi += 1;
                    }
                }
           } else if (curnm[0] == "co"){ // execute continual commands
             mmk = 2;
             cmj += 1;
             cqs[cmj] = curnm[1];
             while (mmk < cj){
                    cmj += 1;
                    cqs[cmj] = curnm[mmk];
                    mmk += 1;          
                }
                mmk = 0;
            } else if (curnm[0] == "fsub"){ // fsub rr [...] [...]
               mmk = 2;
               mms = "co ";
               while (mmk < cj){
                   mms = mms ~ "[" ~ curnm[mmk] ~ "] ";
                   mmk += 1;
               }
               var_found = 0;
               mmk = subfid;
               while (mmk >= 0){
                   if (subfs[mmk] == curnm[1]){
                       var_found = 1;
                       subws[mmk] = mms;
                       subfid += 1;
                   }
                   mmk -= 1;
               }
               if (var_found == 0){
                   subfid += 1;
                   subws[subfid] = mms;
                   subfs[subfid] = curnm[1];
               }
               mmk = 0;
            } else if (curnm[0] == "rsub"){ // rsub rr
               var_found = 0;
               mmk = subfid;
               while (mmk >= 0){
                   if (subfs[mmk] == curnm[1]){
                       var_found = 1;
                       cmj += 1;
                       cqs[cmj] = subws[mmk];
                   }
                   mmk -= 1;
               }
               if (var_found == 0){
                   erwrite("can't find Sub:"~curnm[1]);
               }
            }

            // start execute tree next 
            if (cmj == 0){
                if (waitn == 0){
                    if (uk < f1len - 1){
                        uk += 1;
                        cs = fibre1[uk];
                    } else {
                        return 0;
                    }
                } else {
                    waitn = 0;
                }
            } else if (cqj > cmj){
              //  if (waitn >= 2){

               // } else {
                if (waitn < 2){
                    cqj = 0;
                    while (cqj < cqs.length){
                        cqs[cqj] = "";
                        cqj += 1;
                    }
                    cmj = 0;
                    cqj = 0;
                    uk += 1;
                    cs = fibre1[uk];
             //       writeln("xx cs="~cs);
                } else {
                    string mmsc = "#f "~(waitn-2).to!string;
                    int mmw = 0;
                    while (mmw == 0){
                        if (cqs[cqj] == mmsc){
                            mmw = 1;
                        } else {
                            cqj -= 1;
                        }
                    }
                    cs = cqs[cqj];
                   // writeln("cqj="~cqj.to!string);
                    waitn = 0;
                }

            } else if (cqj <= cmj ){
                if (waitn < 2){
                    cs = cqs[cqj];
                    cqj += 1;
                } else {
                    string mmsc = "#f "~(waitn-2).to!string;
                    int mmw = 0;
                    while (mmw == 0){
                        if (cqs[cqj] == mmsc){
                            mmw = 1;
                        } else {
                            cqj -= 1;
                        }
                    }
                    cs = cqs[cqj];
                    waitn = 0;
                }
            } 
    }
    return 1;
}

//string inner_string_tm(string inp){
//    string mms = inp.dup;
//    int mmi = mms.indexOf("&lb;").to!int;
//    while (mmi > -1){
//        mms = mms[0..mmi] ~ "[" ~ mms[(mmi + 4) .. (mms.length)];
//        mmi = mms.indexOf("&lb;").to!int;
//    }
//    mmi = mms.indexOf("&rb;").to!int;
//    while (mmi > -1){
//       mms = mms[0..mmi] ~ "]" ~ mms[(mmi + 4) .. (mms.length)];
//        mmi = mms.indexOf("&rb;").to!int;
//   }
//    return mms;
//}

怎么算出 Excel 单元格计算的循环依赖错误？

crella95 — Sun, 03 Oct 2021 12:21:49 +0800

比如单元格 A1=5，然后 A2=A1+2，A3=A1+A2，然后这时修改 A1=A3-5，excel 会提示单元格存在循环依赖错误

如果用 ruby 代码，该怎么写？把 A[N] 设为数组或者哈希吧

对于简单脚本，感觉 perl 写得舒心一点

crella95 — Mon, 27 Sep 2021 22:22:51 +0800

编程水平仅限于减小重复操作的工作量，回到 perl 这种主要面向过程的思维真好