Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
HAL is IBM
#include<stdio.h> #include<stdlib.h> #include<string.h> #define F1(type) typedef type (*type##F1)(type); #define FOR PROFILE("\n_FOR_ ");for #define FREE(memory) PROFILE("\n_FREE_ ");free(memory) #define MAIN0(block) int main(); #define MAIN1(block) int main() block #define NODE(type) typedef struct type##n{type value;struct type##n *next;} type##n; #define POINTER(type) typedef type * type##p; #define PROFILE(string) PROFILE1(string) #define PROFILE0(string) #define PROFILE1(string) printf(string) #define RETURN(string,value) PROFILE("\n_RETURN_");PROFILE(string);PROFILE("_ ");return value #define RETURN_MAIN(value) PROFILE("\n_RETURN_MAIN_ ");RETURN_MAIN1(value) #define RETURN_MAIN0(value) return value #define RETURN_MAIN1(value) if(value==0) return main();return value #define TYPEDEF typedef char CH;typedef signed char SCH;typedef unsigned char UCH;typedef short SH;typedef unsigned short USH;typedef int IN;typedef unsigned int UIN;typedef long LO;typedef unsigned long ULO;typedef long long LL;typedef unsigned long long ULL;typedef float FL;typedef double DB;typedef long double LD; #define WHILE PROFILE("\n_WHILE_ ");while #define AddOne0(type) type type##AddOne(type value); #define AddOne1(type) type type##AddOne(type value){PROFILE("\n_AddOne_ ");return value+1;} #define AssertSmallLessThanOrEqualToLarge(small,large) PROFILE("\n_AssertSmallLessThanOrEqualToLarge_ ") small<=large #define AssignVariableTheValue(variable,value) PROFILE("\n_AssignVariableTheValue_ ");variable=value #define CopyString(string) CHpCopyString(string) #define CopyString0 CHp CHpCopyString(CHp string); #define CopyString1 CHp CHpCopyString(CHp string){CHp copy;ULL count;AssignVariableTheValue(count,strlen(string)+1);AssignVariableTheValue(copy,(CHp)malloc(count*sizeof(CH)));AssignVariableTheValue(count,0);WHILE(string[count]!=0){AssignVariableTheValue(copy[count],string[count]);IncrementVariable(count);}AssignVariableTheValue(copy[count],0);RETURN("CopyString",copy);} #define ExampleForLoopWithTypeAndStartAndStopAndFormatString(type,start,stop,formatString) {type i;FOR(i=start;i<=stop;++i){PrintString("hello: ");PrintWithFormatStringAndValue(formatString,i);PrintString("\n");}RETURN_MAIN(0);} #define ExampleListWithType(type){type##np list;AssignVariableTheValue(list,type##PushWithValueAndList(124,NULL));AssignVariableTheValue(list,type##PushWithValueAndList(123,list));PrintWithFormatStringAndValue("%d\n",list->value);PrintWithFormatStringAndValue("%d\n",list->next->value);RETURN_MAIN(0);} #define ExampleString(string) {ULL i;CH c;CHp s;CHF1 function;AssignVariableTheValue(function,&CHAddOne);AssignVariableTheValue(s,CopyString(string));AssignVariableTheValue(s,CHMapFunctionOverArray(function,s));AssignVariableTheValue(i,0);WHILE((c=s[i++])!=0){PrintWithFormatStringAndValue("%c\n",c);}FREE(s);RETURN_MAIN(0);} #define IncrementVariable(variable) PROFILE("\n_IncrementVariable_ ");++variable #define MapFunctionOverArray0(type) type##p type##MapFunctionOverArray(type##F1 function,type##p array); #define MapFunctionOverArray1(type) type##p type##MapFunctionOverArray(type##F1 function,type##p array){ULL i;AssignVariableTheValue(i,0);WHILE(array[i]!=0){AssignVariableTheValue(array[i],(*function)(array[i]));IncrementVariable(i);}RETURN("MapFunctionOverArray",array);} #define PrintString(string) PROFILE("\n_PrintString_ ");printf(string) #define PrintWithFormatStringAndValue(formatString,value) PROFILE("\n_PrintWithFormatStringAndValue_ ");printf(formatString,value) #define PushWithValueAndList0(type) type##np type##PushWithValueAndList(type value,type##np list); #define PushWithValueAndList1(type) type##np type##PushWithValueAndList(type value,type##np list){type##np temp;AssignVariableTheValue(temp,(type##np)malloc(sizeof(type##n)));AssignVariableTheValue(temp->value,value);AssignVariableTheValue(temp->next,list);RETURN("PushWithValueAndList",temp);} TYPEDEF POINTER(CH) F1(CH) MAIN0(ExampleString("HAL")) CopyString0 AddOne0(CH) MapFunctionOverArray0(CH) MapFunctionOverArray1(CH) AddOne1(CH) CopyString1 MAIN1(ExampleString("HAL"))
run
|
edit
|
history
|
help
0
Sum Example
Goldbach Conjecture
emp class
bookinheritence
linear hybrid cellular automaton reversible random bit generator
objective c find factorial
Uso de else if
NSString Examples in one
NSSet Program in objectice-c
represent value