问数一下三角形的数目

EN

哈斯克尔，49字节

([]%)
[c,b,a]%l|a+b>c=1
p%(h:l)=(h:p)%l+p%l
_%_=0

在网上试试！

递归生成l的所有子序列(反向)，并检查哪个长度-3 1构成三角形.

50字节

f l=sum[1|[a,b,c]<-filter(>0)<A8gt;mapM(:[0])l,a+b>c]

在网上试试！

同样的想法，使用mapM生成子序列，方法是将l中的每个值映射到自身(包括)或0 (排除)。

50字节

([]%)
p%(b:t)=sum[1|c<-t,a<-p,a+b>c]+(b:p)%t
_%_=0

在网上试试！

尝试每个分区点以接受中间元素b。

51字节

f(a:t)=f t+sum[1|b:r<-scanr(:)[]t,c<-r,a+b>c]
f _=0

在网上试试！

函数q=scanr(:)[]生成后缀列表。很多麻烦来自于需要考虑是否包含相同的元素，正确的次数。

52字节

q=scanr(:)[]
f l=sum[1|a:r<-q l,b:s<-q r,c<-s,a+b>c]

在网上试试！

助手函数q=scanr(:)[]生成后缀列表。

57字节

import Data.List
f l=sum[1|[a,b,c]<-subsequences l,a+b>c]

在网上试试！

Perl 6，35字节

+*.combinations(3).flat.grep(*+*>*)

在网上试试！

解释

这是一个任何代码，也就是lambda函数的简明表示法(只在非常简单的情况下起作用)。每个*都是一个参数的占位符。因此，我们取长度列表(出现在第一个*中)，使所有三个元素的组合(它们总是以与原始列表相同的顺序出现，这意味着组合也是排序的)，平平列表，然后取列表3乘3，然后筛选(grep)只满足*+*>*的三重奏，即前两个参数之和大于第三个参数。这就给出了所有的三胞胎，最后我们用一个+强制数字上下文来计算它们。

(当然，我们只需要对“两个较小的和>最大和”的情况进行测试。如果这是成立的，另一个小保持，如果这不是，三重奏不表示正确的三角形长度，我们不需要进一步研究。)

Python 3，73字节

lambda l:sum(a+b>c for a,b,c in combinations(l,3))
from itertools import*

在网上试试！

这是我脑海中第一种天真的，蛮力的方法。如果我找到了一个使用不同方法的较短的解决方案，我将更新文章。注意，由于输入是排序的，元组(a,b,c)也是按升序排列的，所以只检查a+b>c是否保持就足够了。