搜索找到 71 个匹配

返回

523066680
2018年07月09日 15:51
转到论坛页面
转到主题

2018-07 更新

更新内容 - 知乎去掉了 oauth 授权的部分 =info Author: 523066680 Date: 2018-07 更新:知乎去掉了 oauth 授权方式 =cut use Modern::Perl; use LWP::UserAgent; use File::Slurp; use JSON; STDOUT->autoflush(1); goto_dir("D:/temp"); our $main = "https://lens.zhihu.com/api/videos/"; our $ua = LWP::Use...
523066680
2018年10月16日 14:51
转到论坛页面
转到主题

2018-10 更新,现在是MP4单文件下载了 Re: LWP::UserAgent 下载知乎视频

=info Author: 523066680 2018-07 知乎去掉了 oauth 授权方式 2018-10 从 ts 多文件,变更为 mp4 单文件下载 =cut use JSON; use Encode qw/from_to/; use LWP::UserAgent; use Mojo::DOM; use File::Slurp; STDOUT->autoflush(1); our $wdir = "D:/temp"; our $main = "https://lens.zhihu.com/api/videos/"; our $...
523066680
2018年10月24日 18:48
转到论坛页面
转到主题

Re: [王垠]如何掌握所有的程序语言

zzz19760225 写了:岔开其掌握这个单词,将所有程序语言看做一个有限时空酿酒容器中的内容。
楼主认为这个“所有的程序语言”,有可能集成为一体吗


他标题有点“大”,是为了吸引眼球,其内容还是很实在的:学技术要掌握核心、根源,举一反三。去掌握更高级的东西,不纠结于低层的某一分支。
我觉得是一个职业程序员应该有的抱负,可惜我是业余的,只能局限于某几种感兴趣的语言。
局限于使用“工具”的层面,无法扩大到“开发工具”的层面。

其实很多人学C++就已经能达到类似的效果了,他们能够很快掌握其他脚本语言。
523066680
2018年11月03日 08:17
转到论坛页面
转到主题

Re: [王垠]如何掌握所有的程序语言

zzz19760225 写了:你可能也认同,他这里有个对程序语言的看法和思路在其中。

你对这里可能涉及的思路,脱离具体细节,抽象的看,再聊聊这个“思路”两个字是怎么理解的啊?

我选择逃跑 :shy
523066680
2018年11月14日 08:57
转到论坛页面
转到主题

[出题]求56以内和为60的5个随机数

求56以内和为60的5个随机数
随机数可以有重复项

要求:输出多个结果,尽可能随机分布。
523066680
2018年11月15日 21:59
转到论坛页面
转到主题

一、 Re: [出题]求56以内和为60的5个随机数

我先抛个砖头,随机取n次,逐次缩减范围。 缺点:由于范围逐次递减,会呈现越往后数值越小的趋势。 our $R = 56; our $n = 5; # the number you need our $m = 60; grep { test() } (1 .. 10); sub test { my $get; my $left = $m; my @poss; for ( my $t = $n; $t > 1; $t-- ) { $get = int(rand($left-$t))+1; push @poss, $ge...
523066680
2018年11月15日 22:31
转到论坛页面
转到主题

二、Re: [出题]求56以内和为60的5个随机数

第二种,假设有n个容器,初始值为1,随机对这些容器 (m-n-1) 次 叠加1 的计算 our $R = 56; our $n = 5; # the number you need our $m = 60; grep { test() } (1 .. 10); sub test { my @cup = (1) x $n ; grep { $cup[int(rand $n)]++ } ( $n+1 .. $m ); printf "%s\n", join(",", @c...
rubyish
2018年11月14日 18:56
转到论坛页面
转到主题

Re: [Perl版块]猜数字游戏专题

v2: :D :D sample: ANS = 0493 0123 20 0145 11 0426 20 0473 30 0483 30 0493 40 COUNT = 6 ---------- ANS = 0495 0123 10 0456 21 0467 20 0485 30 0495 40 COUNT = 5 ---------- ANS = 0496 0123 10 0456 30 0457 20 0486 30 0496 40 COUNT = 5 ---------- #!/usr/bin/perl -w # version 28, subversion 0 (v5.28.0...
rubyish
2018年11月17日 19:04
转到论坛页面
转到主题

Re: [Perl版块]猜数字游戏专题

v3: :D :D :D real 0m0.640s sample: 1 1 2 13 3 108 4 596 5 1668 6 1768 7 752 8 129 9 5 AVE = 5.56031746031746 real 0m0.640s user 0m0.626s sys 0m0.012s time perl abc.pl #!/usr/bin/perl -w # version 28, subversion 0 (v5.28.0) # 2018-11-14, 2018-11-17 use 5.028; my @INDES = ( 0, 5, 9, 12, 13...