Meg's Mirrors

zig

1	#include "complex_impl.h"
2
3	float complex cacoshf(float complex z)
4	{
5	int zineg = signbit(cimagf(z));
6
7	z = cacosf(z);
8	if (zineg) return CMPLXF(cimagf(z), -crealf(z));
9	else return CMPLXF(-cimagf(z), crealf(z));
10	}