From 3f276f402968dc28f8c1fc4ae5f08e79c65ab97a Mon Sep 17 00:00:00 2001
From: Mitsuru Kariya <kariya_mitsuru@hotmail.com>
Date: Tue, 12 Oct 2021 21:26:21 +0900
Subject: [PATCH] =?UTF-8?q?=E5=95=8F=E9=A1=8C=2085=20=E3=81=AB=E5=88=A5?=
 =?UTF-8?q?=E8=A7=A3=E3=82=92=202=20=E3=81=A4=E8=BF=BD=E5=8A=A0=E3=81=97?=
 =?UTF-8?q?=E3=81=BE=E3=81=97=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Perl では unpack と pack のテンプレートに L を使ってみました。
Ruby では ord と chr を使ってみました。
---
 answer/85.md | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/answer/85.md b/answer/85.md
index 284b8d0..db2025c 100644
--- a/answer/85.md
+++ b/answer/85.md
@@ -7,3 +7,12 @@ $ echo 🍑 🍓 | xargs -n1 | perl -nlE 'say unpack("H*",$_)' | xargs | awk '{p
 別解1（上田）$ echo 🍑 🍓 | xxd -i | mawk -F, '{for(i=1;i<=4;i++){printf("%x", ($i + $(i+5))/2)}}' | xxd -p -r
 別解2（田代）$ echo 🍑 🍓 | xxd -u -p -l 4 | sed 's/^/obase=16;ibase=16;/;s/$/+1/' | bc | xxd -p -r
 ```
+
+ ### 読者別解
+
+ by [kariya-mitsuru](https://github.com/kariya-mitsuru)
+
+```
+$ echo 🍑 🍓 | perl -MList::Util=sum -nE 's/ //; say pack "L>", sum(unpack "L>*") / 2'
+$ echo 🍑 🍓 | ruby -E :UTF-8 -ane 'puts $F.map(&:ord).sum./(2).chr'
+```