看板 [ Perl ]
討論串[問題] 新手問個 perl平均值求法
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] 新手問個 perl平均值求法
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者sing10i14 (Lin)時間5年前 (2019/11/08 16:06), 5年前編輯資訊
2
1
0
內容預覽:
https://i.imgur.com/wdZSMEO.jpg. 想問各位改如何求出平均值. 目前學過 標準輸入 迴圈(for) 陣列(array). 分割(split) 隨機數字(rand). 想問各位改如何解題. 最大值跟最小值已經解出來了. 謝謝大家. --. ※ 發信站: 批踢踢實業坊(pt
#2
Re: [問題] 新手問個 perl平均值求法
推噓1(1推 0噓 0→)留言1則，0人參與, 5年前最新作者jkchang (JK)時間5年前 (2019/11/09 08:06), 編輯資訊
0
1
0
內容預覽:
這樣可以嗎?. #!/usr/bin/perl. print "Please input number:";. chomp($input = <STDIN>);. @nums = split /,/, $input;. @sorted_nums = sort {$a <=> $b} @nums;.
(還有115個字)
#3
Re: [問題] 新手問個 perl平均值求法
推噓0(0推 0噓 1→)留言1則，0人參與, 5年前最新作者gugod (啊)時間5年前 (2019/11/09 15:55), 編輯資訊
0
1
0
內容預覽:
平均值 (mean) 就是將所有數字加總 (sum) 後，除以數字個數。. my @nums = ... # 數字們. my $mean = sum(@nums) / @nums;. 其中 sum 函式的定義可為：. sub sum { (@_ == 0) ? 0 : (pop(@_) + sum(
(還有178個字)
首頁
上一頁
1
下一頁
尾頁