#45768 (Perl) No.67 よくある棒を切る問題 (1)

• 問題: No.67 よくある棒を切る問題 (1)
• ユーザー: anta
• 提出日時: 2015-08-27 04:12:27
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 37 ms / 5,000 ms
• コード長: 2,651 bytes
• コンパイル時間: 1,611 ms
• コンパイル使用メモリ: 163,704 KB
• 実行使用メモリ: 5,248 KB
• 最終ジャッジ日時: 2024-11-08 11:40:59
• 合計ジャッジ時間: 3,604 ms
• ジャッジサーバーID （参考情報）: judge2 / judge5

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	36 ms; 5,248 KB
testcase_01	AC	5 ms; 5,248 KB
testcase_02	AC	17 ms; 5,248 KB
testcase_03	AC	28 ms; 5,248 KB
testcase_04	AC	34 ms; 5,248 KB
testcase_05	AC	35 ms; 5,248 KB
testcase_06	AC	34 ms; 5,248 KB
testcase_07	AC	37 ms; 5,248 KB
testcase_08	AC	37 ms; 5,248 KB
testcase_09	AC	37 ms; 5,248 KB
testcase_10	AC	31 ms; 5,248 KB
testcase_11	AC	34 ms; 5,248 KB
testcase_12	AC	30 ms; 5,248 KB
testcase_13	AC	34 ms; 5,248 KB
testcase_14	AC	36 ms; 5,248 KB
testcase_15	AC	32 ms; 5,248 KB
testcase_16	AC	33 ms; 5,248 KB
testcase_17	AC	34 ms; 5,248 KB
testcase_18	AC	33 ms; 5,248 KB
testcase_19	AC	35 ms; 5,248 KB
testcase_20	AC	35 ms; 5,248 KB
testcase_21	AC	35 ms; 5,248 KB
testcase_22	AC	30 ms; 5,248 KB
testcase_23	AC	32 ms; 5,248 KB
testcase_24	AC	5 ms; 5,248 KB
testcase_25	AC	6 ms; 5,248 KB
testcase_26	AC	6 ms; 5,248 KB
testcase_27	AC	6 ms; 5,248 KB
testcase_28	AC	10 ms; 5,248 KB
testcase_29	AC	8 ms; 5,248 KB
testcase_30	AC	6 ms; 5,248 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

system './' . $exe_name;

BEGIN {
	$source_name = 'my_tmp.cpp';
	$exe_name = $^O eq 'MSWin32' ? 'my_a.exe' : 'my_a.out';
	return if -e $exe_name;
	open my $fh, '>', $source_name;
	print $fh <<'CODE';
#line 9

#include <string>
#include <vector>
#include <algorithm>
#include <numeric>
#include <set>
#include <map>
#include <queue>
#include <iostream>
#include <sstream>
#include <cstdio>
#include <cmath>
#include <ctime>
#include <cstring>
#include <cctype>
#include <cassert>
#include <limits>
#include <functional>

#include <immintrin.h>

#define rep(i,n) for(int (i)=0;(i)<(int)(n);++(i))
#define rer(i,l,u) for(int (i)=(int)(l);(i)<=(int)(u);++(i))
#define reu(i,l,u) for(int (i)=(int)(l);(i)<(int)(u);++(i))
#if defined(_MSC_VER) || __cplusplus > 199711L
#define aut(r,v) auto r = (v)
#else
#define aut(r,v) __typeof(v) r = (v)
#endif
#define each(it,o) for(aut(it, (o).begin()); it != (o).end(); ++ it)
#define all(o) (o).begin(), (o).end()
#define pb(x) push_back(x)
#define mp(x,y) make_pair((x),(y))
#define mset(m,v) memset(m,v,sizeof(m))
#define INF 0x3f3f3f3f
#define INFL 0x3f3f3f3f3f3f3f3fLL
using namespace std;
typedef vector<int> vi; typedef pair<int,int> pii; typedef vector<pair<int,int> > vpii; typedef long long ll;
template<typename T, typename U> inline void amin(T &x, U y) { if(y < x) x = y; }
template<typename T, typename U> inline void amax(T &x, U y) { if(x < y) x = y; }

inline long long sum_trunc_mul(const double *A, int N, double s_inv) {
	__m256d inv = _mm256_set1_pd(s_inv);
	int i = 0;
	__m256d sum = _mm256_setzero_pd();
	for(; i + 3 < N; i += 4) {
		__m256d a_d = _mm256_load_pd(A + i);
		__m256d prod = _mm256_mul_pd(a_d, inv);
		__m256d truncated = _mm256_round_pd(prod, (_MM_FROUND_TO_ZERO |_MM_FROUND_NO_EXC));
		sum = _mm256_add_pd(sum, truncated);
	}
	double sum4[4];
	_mm256_storeu_pd(sum4, sum);
	long long res = 0;
	rep(k, 4) res += (ll)sum4[k];
	for(; i < N; ++ i)
		res += (ll)(A[i] * s_inv);
	return res;
}

int main() {
	int N;
	while(~scanf("%d", &N)) {
		vector<double> A_d(N);
		rep(i, N) {
			int A;
			scanf("%d", &A);
			A_d[i] = A;
		}
		long long K;
		scanf("%lld", &K);
		const double EPS = 1e-9;
		double l = 0, u = 1e9;
		while(l + EPS < u && l * (1 + EPS) < u) {
			double mid = (l + u) / 2;
			double inv = 1. / mid;
			long long sum = sum_trunc_mul(&A_d[0], N, inv);
			if(sum >= K) l = mid; else u = mid;
		}
		printf("%.10f\n", (l + u) / 2);
	}
	return 0;
}


CODE
	system "g++ -m64 -O2 -lm -march=native -std=c++11 $source_name -o $exe_name 2> my_compile.log";
	if($? != 0) {
		open(my $fh, '<', 'my_compile.log');
		while(<$fh>) { print STDERR $_; }
		die 'compile error';
	}
}