adam/Alepha
1
0
Fork 0
forked from Alepha/Alepha
Code Pull Requests Activity

Add a repeat function to type lisp.

Browse Source
This commit is contained in:
ADAM David Alan Martin
2024-03-21 16:20:26 -04:00
parent 5242aa340a
commit 5438ae9312
1 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
type_lisp.h
View File

@ -141,6 +141,27 @@ namespace Alepha::Hydrogen ::detail:: type_lisp_m
{
using type= TypeList< LeftArgs..., RightArgs... >;
};
template< typename Item, std::size_t count >
struct repeat;
namespace exports
{
template< typename Item, std::size_t count >
using repeat_t= typename repeat< Item, count >::type;
}
template< typename Item, std::size_t count >
struct repeat
{
using type= cons_t< Item, repeat_t< Item, count - 1 > >;
};
template< typename Item >
struct repeat< Item, 0 >
{
using type= Nil;
};
}
namespace Alepha::Hydrogen::inline exports::inline type_lisp_m