適応障害
[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
% next.