小编Sum*_*nal的帖子

我正在使用Azure Pipelines 在Windows中为Perl 6 构建Rakudo二进制文件。

这是我的azure-pipelines.yml文件：

jobs:
- job: Windows
  pool:
    vmImage: 'vs2017-win2016'
  steps:
    - bash: |
        mkdir -p $(Build.SourcesDirectory)/rakudo-win
        curl -L https://github.com/rakudo/rakudo/releases/download/2019.07.1/rakudo-2019.07.1.tar.gz | tar xz
        mv rakudo-2019.07.1 rakudo
        cd rakudo
        C:/Strawberry/perl/bin/perl Configure.pl --gen-moar --gen-nqp --backends=moar --prefix=$(Build.SourcesDirectory)/rakudo-win
        make
        make install

    - bash: |
        echo "##vso[task.prependpath]$(Build.SourcesDirectory)/rakudo-win/bin"

    - bash: |
        perl6 -v

管道脚本perl6在$(Build.SourcesDirectory)/rakudo-win/bin文件夹内构建了二进制文件。perl6.exe里面确实有$(Build.SourcesDirectory)/rakudo-win/bin。为了使其可用，我通过在bash脚本中添加路径来设置路径。但是，当我尝试运行command时perl6 -v，此步骤构建失败。

我在这里，这里，这里搜索了类似的问题。

我仍然无法解决我的问题。任何有关如何使perl6二进制文件可用的帮助PATH吗？

已编辑

接下来我要做的是创建另一个 …

我正在尝试编写一个函数，用于从此处获取的累积分布函数。

这是我的cpp代码：

#include <iostream>
#include <cmath>
#include <iomanip>
using namespace std;

double normalCDF( double x )
{
   return  0.5 * ( 1.0 + erf( M_SQRT1_2 * x ) );

}

int main() {

    cout << normalCDF(4.8) << endl;    
    cout << normalCDF(5.4) << endl;
    cout << normalCDF(5.6) << endl;
    cout << normalCDF(5.8) << endl;
    cout << normalCDF(5.1) << endl;
    cout << normalCDF(-37.5) << endl;
    cout << normalCDF(-36.0) << endl;
    cout << normalCDF(-37.6) << endl;
    cout …

问题

我想打电话给CHISQ功能的累积分布函数在GSL从乐。

这是我的乐曲脚本 chisq.raku

#Calling gsl_cdf_chisq-P function in GSL from raku

use NativeCall;

sub gsl_cdf_chisq_P(num64, num64) returns num64 is native('gsl') { * };
sub gsl_cdf_chisq_Q(num64, num64) returns num64 is native('gsl') { * };


sub pchisq($q, $df, $lower-tail = True) {
  my $a = $q.Num;
  my $b = $df.Num;
  if $lower-tail == True {
    return gsl_cdf_chisq_P($a, $b)
  } else {
    return gsl_cdf_chisq_Q($a, $b)
  }
  }

say pchisq(3,4);

执行此脚本时，出现以下错误：

Cannot locate native library '(null)': /usr/lib/x86_64-linux-gnu/libgsl.so: undefined symbol: cblas_ctrmv …

在阅读 https://github.com/rakudo/rakudo 后README.md，我冒险为 rakudo 构建多个后端。

我使用 64 位 Ubuntu 20.04 来做到这一点。首先我安装了

• build essential,libencode-perl
• default-jdk准备编译 rakudo 的机器。

克隆存储库后，当我运行命令时perl Configure.pl --backends=moar,jvm --prefix=/usr，出现以下错误：

root@1145eac1ed77:/rakudo# perl Configure.pl --backends=moar,jvm --prefix=/usr
No pre-existing installed file found at /usr/bin/nqp-m
No pre-existing installed file found at /usr/bin/nqp-j
No pre-existing installed file found at /usr/bin/nqp-m
No pre-existing installed file found at /usr/bin/nqp-j
Use of uninitialized value $str in substitution (s///) at /rakudo/3rdparty/nqp-configure/lib/NQP/Config.pm line 1420.
Use of uninitialized value $str in …

我正在尝试运行包含函数的代码srand：

srand(1);\nmy @x = (1..1000).roll(100);\nmy @y = (200..7000).roll(100);\nsay sum(@x);\nsay sum(@y);\nsay $*KERNEL\n

从文档中可以清楚地看出，这srand是依赖于平台的的。\n当我在 Windows 10 中测试这一点时，我得到了

46221\n375477\nwin32\n

当我在 glot.io 中测试它时，我得到

50941\n405340\nlinux\n

在tio.run这里，我得到

47784\n354115\nlinux (5.2.11.100.fc.29.x.86._.64)\n

在 repl.it 中，我得到\n

51496\n362664\nlinux\n

在 raku irc 频道中，其

50941\n405340\nlinux\n

所以即使平台是linuxie $*KERNEL ~~ \'linux\'，也有无数的输出。这是预期的吗？

为什么我在这里问这个问题是因为我无法在持续集成（例如github操作）中测试以下代码，因为即使在linux. 以下代码在 GitHub Actions 中失败：

use Test;\nif $*KERNEL ~~ \'win32\' {\n    srand(1); …

这是我的文件夹结构：

C:\\USERS\\SUMAN\\OPENMP_CMAKE\n\xe2\x94\x82   shlib.pl\n\xe2\x94\x82   shlib.raku\n\xe2\x94\x82\n\xe2\x94\x94\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80resources\n    \xe2\x94\x94\xe2\x94\x80\xe2\x94\x80\xe2\x94\x80libraries\n

这shlib.raku这一行

move "shlib.pl", "resources/libraries"\n

当我运行此脚本时，它无法移动文件。在这里阅读文档，我希望它能起作用。相反，它会抛出此错误：

Failed to move \'C:\\Users\\suman\\openmp_cmake\\shlib.pl\' to \'C:\\Users\\suman\\openmp_cmake\\resources\\libraries\': Failed to copy file: operation not permitted\n  in block <unit> at c:\\Users\\suman\\openmp_cmake\\shlib.raku line 1\n\n

我想这和系统有关。但有办法解决这个问题吗？因为它将帮助我实现自动化。这是我的系统信息：

Host Name:                 SUMANKHANAL\nOS Name:                   Microsoft Windows 10 Pro\nOS Version:                10.0.19043 N/A Build 19043\nOS Manufacturer:           Microsoft Corporation\nOS Configuration:          Standalone Workstation\nOS Build Type:             Multiprocessor Free\nRegistered Owner:          N/A\nRegistered Organization:   N/A\nProduct ID:                00331-20350-00000-AA867\nOriginal Install Date:     2/19/2022, 1:41:50 PM\nSystem Boot Time:          4/10/2022, …

今天，我在IRC聊天中了解到

my @a = [9, 4, 3, 2, 7];
say @a.sort(:k) # (3 2 1 4 0)

自 Rakudo 2023.08 起可用。我希望我的模块使用此功能。是否有内置机制可以通过修改 META6.json 在模块中指定这一点？

例如，如果 Rakudo 早于 2023.08，则模块安装失败。

我所知道的是我们可以指定6.c, 6.d，6.e例如：

"raku": "6.d"

在META6.json文件中。然而这并没有解决这个问题。