Skip to content

Instantly share code, notes, and snippets.

Option Explicit
Dim header() As String
Dim i As Long
Dim row As Long
Dim col As Long
Sub getHeader()
i = 1
@TABETA
TABETA / Buffer.hpp
Last active February 15, 2016 14:45
reinterpret_castを使いたくないお ref: http://qiita.com/abedominal/items/c79cc7a04afca43ebc41
#pragma once
#include <string>
#include <iostream>
#include <cstdint>
#include <iosfwd>
struct Result
{
#include <string>
#include <iostream>
#include <chrono>
#include <cstdint>
#include <cmath>
using namespace std;
void checkDiff(uint32_t l, uint32_t r, bool isLeftBigger)
{
@TABETA
TABETA / file0.cpp
Last active February 14, 2016 02:31
switch文のケースに使われているリテラル値で最適化はしてくれるのか? ref: http://qiita.com/abedominal/items/5f4eb9750737aff76efe
//maskの右辺値はコンパイル時に決められるから計算コスト不要であることを期待
class Select0
{
public:
bool operator()(int bitPos, uint32_t dword)
{
uint32_t mask = 0;
switch (bitPos)
{
case 1: mask = 1<<0; break;
@TABETA
TABETA / After.cpp
Last active February 16, 2016 14:24
ポインタが指し示すデータを一時変数に受けていたせいで最適化が効かなくなった例 ref: http://qiita.com/abedominal/items/f188737285c8d4e71a03
push ebp
mov ebp, esp
mov edx, DWORD PTR _b$[ebp]
mov ecx, DWORD PTR _r$[ebp]
movzx eax, WORD PTR [edx+8]
mov WORD PTR [ecx], ax
movzx eax, WORD PTR [edx+40]
mov WORD PTR [ecx+2], ax
movzx eax, WORD PTR [edx+72]
mov WORD PTR [ecx+4], ax
#pragma once
#include <cstdint>
#include "Observer.hpp"
// 継承でStrategy部を自分で実装する。
// judgeを自分で持っているのでポインタ経由での関数呼び出しが一回減っている。
class ChangeDetectionObserver : public Observer
{
public:
ChangeDetectionObserver() :count_(){}
@TABETA
TABETA / main.cpp
Created March 27, 2016 11:26
整数値をキーとしたstateパターンをtemplateで実現 ref: http://qiita.com/abedominal/items/73e2a9448330837ea6d6
#include <iostream>
#include <iomanip>
#include <cstdint>
using namespace std;
template <typename T>
class Singleton
{
protected:
@TABETA
TABETA / Caster.hpp
Created March 28, 2016 21:11
メンバ関数ポインタへのコールバックをtemplateで ref: http://qiita.com/abedominal/items/9cca99e10cf4eac1708f
#pragma once
#include "Singleton.hpp"
using namespace std;
struct Listner
{
public:
Listner() {}
virtual ~Listner(){}
@TABETA
TABETA / JIRA.bas
Last active March 10, 2018 23:24
JsonConverterに依存。
Option Explicit
Private JiraService As New MSXML2.XMLHTTP60
Private JiraAuth As New MSXML2.XMLHTTP60
Private sCookie
Const sJIRAUserID = ""
Const sJIRAPass = ""
Const url = "https://<name>.atlassian.net/rest/"
Private Sub Class_Initialize()
Dim sErg
Function truncDate(t As Date) As Date
truncDate = TimeSerial(Hour(t), Minute(t), 0)
End Function
Function findTime(r As Long, c As Long) As Long
findTime = Application.WorksheetFunction.Match(CDbl(truncDate(Cells(r, c))), Range("2:2"), 1)
End Function
Sub t()
Dim cs As Long