Common Lisp in C

Lets write Common Lisp functions in generic C code.


/* (map #'func array) => map(array,length_of_array,sizeof(array),function_pointer) */
void *map(void *base,size_t len,size_t elemnsize, void (*func)(void *,void *)) {
  void *b = malloc(elemsize*len);
  size_t i;
  for(i=0;i<len;++i){
    func(b+(elemsize*1),base);
    base += elemsize;
  }
  return b;
}

When did people start hating anti-jew posts?

>>41
Since when they became "people"?

>>40
Shåløm! Unicode is BIG.

>>40
>>39
Shalom!

>>23
This isn't what he's suggesting, that is what I am suggesting.

>>24
Can i use this in C89/99?
You can use the map macro, but you won't really gain any thing over just a for loop. You obviously can't use the nested function thing, that's GCC specific.

How does gcc handle scope names if i named another variable _i when using the that?
Just like it would any other scope, it works fine.

>>26
It's O(n) slower than not doing anything at all, and this is noticeable  when you don't have to do it.

　　　　　　　　　　　　　　　　rｧ=-､_　　　　　,.rｧ‐-､
　　　　　　　 rr-‐rｧ　　　　「/::::::::::ヽ!､　　　 i/:::::::/7
　　　　　　 　Y::::::〈!　　　　 '､!'⌒ヽ､_y'ｰ､,／::::::／!7
　　　　　　　　ヽ;::::ヽ　　 　　,!＞-ｧ'ヽr-ﾍﾄ､ン/:::::!'
　　　　／　　　　!}::::!{　,.. '"´く::::/}　　 　　 ｀y^i'ｰ'^ヽ.　　　目が回るぅ～
　　　.,'　　　 　　ヽゝ／　　　　Y-'　　　　　 /:::!{　　､　ヽ.
　　　i 　, '"´　　　'y'　 .／　 /! 　 ,'　 ,　　く:;__」}　　 ':,　 '､
　　　　　　　　　　;'　 ./　　 /ｰ!--!　/'!　　 ﾊ　 ',　　　',ヽ､',
　　　　　i´｀ヽ.,　 L__;'　　_/,.',ﾆ､ヽﾚ' 　!　ｧ'ｰ!-'､!　i　　i:::::: ｀'' ｰ-‐=ｧ
　　 　,.､_!,　　 ヽ.　　｀>､,ﾊ.! !,_ｰ' ﾉ　　ﾚ' ,.',ﾆ､ヽ.!　!　　i｀ヽ､:::::::::::::/
　　 　ヽ､,___　　　｀'ｧ' 　 7' `'ｰ‐'　 　 　　! !,_ｰ' ﾉr┴-､!　 ,' `ｰ＝'
　　　　　　　｀ヽ､, '　 　.ｲ⊃ ,.-_､.,,__　　　`'ｰ‐' / 　 !　　 /
　　　　　　 　　 /　　　.ノゝ､i´ 　　　￣｀ヽ.　⊂⊃ .,'　 ／
　　　　　　　　 ,' 　 ,.イ　　 /!＞.､.,__　　__,!,. イ 　 ,:' イ
　　　　　　　　 !___/_ﾉ!__,,...'-‐''"´　 ￣　　　　.／ヽ､ﾉ　　　　',　 　　.!
　　　( 　　　　}i::::::`r､_,,. -‐rｧ､.,,________,,,,... イ　_,rメ､!7､　　　!　　　,'
　　　 ｀"'' ｰ　}レ'7へ:::::::::::!{＞＜:::::::i　　　　rン'::::::::::ヾ!　　ﾉ　　 ノ
　　　　　　　 　（.　 ン^ヽ､」}ﾆ＜:::::::::i　　　r/!::::_r'"￣ヽ!_　　 　´
　　　　　　rｧｰ_r）'":::::ヽ;ヽ､::::::::::::::;:ｲ!__,／::!ﾔ､__'､　　 7'iｰｧ､,__,,.. -‐ｧ
　　　　_rｧ''"´:::::::::::::::／`ｰﾍ､__二ン::::::::::::::::::`'く　＞.､.,!/::/　｀ヽ:::::/」
　　　ﾉ」:::::::::::::::::::::'´:::::::::::/::::::::::::::!::::::,.-‐‐-::::::: ｀ヽ. 　 `ヽ､）､___ﾉ￣
　　　　!ﾍ;:::::::::::::::::::::::::::::::::::::::::::::::::::γ::: y'⌒ヽ:::::::::::::':,　　　　　 　　 __
　　　　ヽ,へ:::::::::::::::::::::::::::::::::::::::::::::::i:::::::!::::ｰ- ':::!:::::::::::::',　　　　　　- ､ ｀ヽ.
　　　　/;:-X::＞､:;__::::::::::::::::::::::::::::::ﾒ::::::::ゝ､;__ ノ::::::::::::::::〉､　　　___,,..ノ　　ﾉ
　　　 ,'::::::::::/｀'' ｰ､,'^ヽ､:;____:::::::メ::::::::___::::______:::_;;:::イ ﾝ'
　（ (　`' ｰ'　　 　 　 ￣｀"'ｰ-､.,_二ン'-r'"ｰ-‐'" 　 ￣
　　　　　　　　　　　　　　　　　　|::::X:::7
　　　　　　　　　　　　　　　　　　!:::::::::;'
　　　　　　　　　　　　　　　　　　`'ｰ-'

>>45
It's about O(n/c + k) where k is at most 1/500 the time it takes a neuron to fire and c in the thousands. You won't—can't—notice it unless n is astronomical.

What's slow is managing that memory. Which is waaaaaaaay more than O(n) if it contains pointers or lives for any appreciable amount of time.