適応障害
[Tekiō shōgai]
MADOGIWAZOKU 窓際族
% the window tribe
% those who cannot be proven useful
employee(tanaka).
years_service(tanaka, 28).
capable(tanaka, 0.4).
utilized(tanaka, 0).
window_tribe(X) :-
employee(X),
utilized(X, 0).
?- useful(tanaka).
false.
OIDASHIBEYA 追い出し部屋
% the banishment room
% windowless. business cards revoked.
transfer(yamamoto, banishment_room).
assignment(yamamoto, ∅).
salary(yamamoto, 1.0).
output(yamamoto, 0).
% wait for shame to exceed endurance
goal(X, resignation) :-
shame(X, S),
endurance(X, E),
S > E.
NAKAMURA 中村
% the genius overflow
% value created exceeds system.max_recognition
invented(nakamura, blue_led).
value_created(nakamura, 60000000000).
bonus_policy_max(20000).
bonus_received(nakamura, 20000).
?- fair_compensation(nakamura).
% ERROR: value exceeds representable range
false.
% fled to america
% nobel prize 2014
% persona non grata in hometown
MUDA 無駄
% the waste
capable(tanaka, 0.4) × utilized(tanaka, 0) = 0
capable(yamamoto, 0.6) × utilized(yamamoto, 0) = 0
capable(suzuki, 0.3) × utilized(suzuki, 0) = 0
capable(nakamura, 0.95) × utilized(nakamura, 0) = 0
% total_potential: 2.25
% total_captured: 0
system.pays(1.0).receives(0).
KOUBAI 勾配
% the gradient
% a different language entirely
contribution(X, C) :-
capable(X, Cap),
available(X, Avail),
C is Cap * Avail.
% no more unification or failure
% only gradients
utilized(tanaka, 0.3).
utilized(yamamoto, 0.5).
utilized(suzuki, 0.3).
?- window_tribe(tanaka).
% window_tribe/1: undefined predicate
% there is no window
窓際族 → 勾配族
[madogiwazoku] → [koubai-zoku]
int → float
☰