Algorithm for computing the moduli space of pointed Gorenstein curves with Weierstrass gap sequence \(1,2,\ldots,g-2,\lambda,2g-3\) An algorithm to compute automorphism groups of \(K3\) surfaces and an application to singular \(K3\) surfaces 