Merge pull request from revarbat/revarbat_dev

Alias homogenous() for homogeneous().
This commit is contained in:
Revar Desmera 2021-03-01 23:07:02 -08:00 committed by GitHub
commit 6d4a2ac4c1
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -18,6 +18,7 @@
// Function: is_homogeneous()
// Alias: is_homogenous()
// Usage:
// bool = is_homogeneous(list,depth);
// Topics: List Handling, Type Checking
@ -38,6 +39,8 @@ function is_homogeneous(l, depth=10) =
!is_list(l) || l==[] ? false :
let( l0=l[0] )
[] == [for(i=[1:len(l)-1]) if( ! _same_type(l[i],l0, depth+1) ) 0 ];
function is_homogenous(l, depth=10) = is_homogeneous(l, depth);
function _same_type(a,b, depth) =
(depth==0) ||